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EDITORIAL 


THIS MONTH'S MAGAZINE 

One of the most important items of equipment in your microcomputer set up is the 
TV or monitor that you use with it. The article on choosing a TV or monitor should 
be helpful if you want to assess the quality of your screen display, and includes 
some useful test programs. 


We have also included the winning Electron entry in the Niagara falls Brainteaser 
Competition that appeared in the supplement with the March issue. The program 
produces an excellent screen display, as you will see from the accompanying 
illustration, every bit as good if not better than the winning entry for the BBC 
micro. This would surely indicate that ELBUG readers need have no fear of being at a 
disadvantage in competitions of this kind. 


With more utilities and three more high quality games for you to type in and 
play, this issue of ELBUG should keep you busy and entertained for some time. 


ELECTRON ADD-ONS 

As promised last month, we are including a review of two of the latest add-ons 
for the Electron. These both allow the connection of joysticks to the Electron, and 
both offer excellent value for money. Acorn have just launched their own add-on for 
the Electron, to be called the Plus One, which we expect to to review in detail in 
the next issue. 


COMPUTER SHOWS 

The season for computer shows gets underway with the Computer Fair from the 14th 
to 17th June at Earls Court, London. Details of other shows appear under the heading 
of Events in the Supplement. We shall be at many of the London shows, and we would 
be pleased to welcome any ELBUG readers to our stand - look for the name BEEBUG or 
BEEBUGSOFT. A visit to a computer show is usually very interesting, and one sure way 
of seeing all the latest and best products for your micro under one roof. 


Mike Williams 


TICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BOAR 


HINTS AND TIPS 

We thought you might like to know where the £18 and £5 prizes go for the best 
hints. This month the £19 prize goes to Mrs A.E.Morland and the £5 prize goes to Mr 
P.Bhandari. We are always on the lookout for more good hints to publish in ELBUG. 


MAGAZINE CASSETTE 


All the programs featured in this issue of ELBUG are available on cassette, as 
are all the programs from previous issues. Full details on price and ordering are on 
the inside back cover. This is certainly the way to avoid all those sore fingers, 
and you don't have to worry about making mistakes. 
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TWO JOYSTICK INTERFACES FOR THE ELECTRON 


Reviewed by Nigel Harris 


In the last issue of ELBUG we made mention of two new interfaces 
for the Electron to allow the use of joysticks. This time we'll have 
a closer look at these devices and see what they have to offer. 


Product : Joyport, Joystick Interface 


Supplier : Signpoint Ltd., 
Unit D, 166a Glyn Road, 
Clapton, London. E.5. 

Price : £16.95 (inc. VAT & delivery) 


Product : Electron S-J Interface 
Interface 
Supplier : First Byte Computers 
18 Castlefields, 
Main Centre, Derby DE] 2PE. 
Price : £24.95 (inc. VAT & delivery) 


The requirement for a joystick 
facility with a microcomputer is a 
very common one these days, due largely 
to the popularity of arcade-action 
type games programs with many micro 
users. However, there is no direct 
connection point on the Electron for a 
joystick. 


Acorn offer a means of expansion, 
by providing an edge-connector at the 
back of the machine. This is actually 
an open set of connections brought out 
from the circuit board and should be 
kept covered, when not in use, by the 
polythene strip provided. 


Both of the interface devices in 
this review fit onto this edge 
connector and make available the 
facility to plug in a single joystick. 
Both are roughly the same size as a 
packet of cigarettes, and are very 
light. When plugged in, they are 
actually supported by the same 
surface that the host Electron is 
resting on. 


USING EITHER INTERFACE 

There are two connections on each 
interface. One that will fit the 
computer and one that will fit the 
joystick. This is a 9 pin 'D' type 
socket for the standard Atari switched 
type joystick. In other words the 
joystick can only represent a 
quantity which is either on or off, 
or, true or false. Good for direction 


indication in a program, but not 
for flying a plane or for drawing with. 


Plugging the interface in is best 
done with the computer switched off. A 
program (involving some assembler or 
machine code programming and hopefully 
supplied and fully documented) must 
then be loaded and run to set up the 
function of the joystick with the 
computer. Each direction of movement of 
the stick is then interpreted by the 
computer aS a _ character from the 
keyboard. Likewise with the fire 
buttons. 


FIRST BYTE S-J_ INTERFACE 


The First Byte interface comes in a 
glossy, little cardboard package that 
is going to stack very neatly on shop 
shelves. The actual device is a similar 
creamy colour to the Electron. Provided 
with it are two programs on tape 
cassette. Both are 
for configuring 
the joystick to 
work with a 
program that you 
want to use it 
with. The first of 
these gives you 


a menu of 
popular games. 
After you've 
selected one of 
them, the program 
sets up the 
computer to 


recognize the 
particular keys 
needed by the game 
in question. 


different 
games are catered for, but for your own 


In this way, some twenty 


customising, another program called 
'SETUP' will get the computer to 
recognize your own selection of keys. 
This is a particularly useful utility, 
as it makes use of a simple screen 
diagram and prompts you _ for the 
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necessary information. It does not 
require any technical knowledge of the 
user, other than knowing which keys are 
needed in the application. You then 
load and run the program that you 
intend to use. 


Instructions on use of the tape and 
of the joystick interface itself are 
fairly scant. What there is, is quite 
clear and concise and very helpful, but 
not adequate, particularly in the case 
of the interface. Instructions appear 
on the bottom of the carton and despite 
a few lines of Basic that help to make 
use of a joystick from within a Basic 
program, I still find myself a bit 
confused about how exactly I should go 
about obtaining the effect that I want. 


THE SIGNPOINT JOYPORT 

It is evident from appearance alone 
that this is the least expensive of the 
two devices 
reviewed here. The 
physical design is 
certainly not as 
attractive as eS 
First Byte's. 
Housed inside a 
thin black plastic 
case, this one may 
not take a great 
deal of that 
inevitable 
battering it''s 
going to come in 
for with kids. 


dOYPONE 


On connecting it to the Electron, it 
becomes obvious that it's possible to 
put on upside down. Not that the 
thinking owner is likely to, but it is 
possible and it would be enough to 
cause me some concern for my Electron's 
safety. 


On our review sample, the spacer in 
the edge connector fixed itself in the 
slot in the Electron's circuit board 
repeatedly and had to be prised free 
with pliers. This was of some 
inconvenience and it would be very easy 
to loose this little piece of plastic 
if care was not taken. Without that of 


course, the interface could plug into 
the Electron anywhere that it wanted to 
along the length of the connector, 
which again would be hazardous. 


At the other end (well actually 
coming out of the top of the Joyport), 
the 9 pin D-type socket was mounted 
directly to the interface's printed 
circuit board. This also may not be 
very reliable in the long term, as the 
solder connections must take the strain 
of insertion and extraction of the 
joystick plug. 


A cute little Xeroxed booklet came 
inside the box which simply showed a 
few examples of how the Joyport 
interface might be used in Basic 
programs. These are very useful and in 
fact every Electron owner’ could 
experiment with them as they are all 
for customising the Welcome tape 
programs for use with a joystick. 
Secondly, a photocopied listing of an 
assembler program was supplied which 
when run made it possible to customise 
a commercial arcade game. Having 
comments written against the program 
instructions makes it possible for the 
advanced or interested user to 
experiment with this themselves and is 
of general interest anyway. However, 
the effort to type this in and save it 
oneself must be made, and it will be a 
relief to the owner that the program is 
quite short. 


CONCLUSIONS, 


Neither of these devices allow any 
further extension of the Electron's 
expansion bus from its rear connector. 
That means that both must fit at the 
end of such an expanded bus. However, 
both rely on the support of the working 
surface to a large degree, for the 
robustness of their link with the host 
micro. It is hard to imagine how this 
particular joystick interface design 
will maintain a reliable connection 
with an Electron, which has already 
been expanded. For an extra eight 
pounds for the First Byte interface you 
are getting less documentation, a much 
more elegant design, a cassette with 2 
short programs on, convenience for the 
first time user and much _ nicer 
packaging. Whether the extra 59% is 
justified is a point of personnal 
preference. g 
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FLIP-FLAP 


by S. Goodhead 


This is ‘a game of thought and 
strategy', as they say, and is best 
considered as a board game. The board 
is square and made up of == smaller 
squares. The player may move between 
these in one of four directions (up, 
down, left or right), within the 
confines of the board. Every move will 
‘flip' the colour of the small square 
moved to, from one colour to another. 
The object is to render a square board, 
which, is at first randomly filled with 
two colours, into just one. The 
challenge is to do this in as few moves 
as necessary. 


The board begins with its squares 
set to a random mix of both colours 
and it's then necessary to travel the 
board ina strategic fashion to revert 
all squares to just one colour in as 
few moves as possible. Important points 
to note however, are that you are not 
allowed to retrace your last move, and 
some concentration is required in order 
that you shouldn't lose track of your 
last position. 


The computer version of this game 
represents the board on the screen in 
two colours and prompts for your moves 
from the keyboard. The following keys 
are used to make a move: 


U to go U-p 

D to go D-own 
L to go L-eft 
R to go R-ight 


and you will see the squares change 
colour as you move about the board. You 
won't be able to make any illegal moves 
and all the moves that you do make will 
be tallied. 


The nice thing about this game is 
that it's as easy for several people to 
participate in as it is for one to play 
- provided you take it in turns! The 
game has many of the virtues of 
"Patience', except that as far as we 
know, it's not possible to lose; the 
winner is the one who takes the least 
moves to complete the board. 


PROGRAM NOTES 
The program is quite straightforward 


You start in square A4. As you move, 
the square you move to changes colour. 


The object of the game is to end up 
with all the squares the same colour in 
the fewest number of moves. 


It’s so easy - for some people ! 


How you can have a go. 


Press ‘Return’ when you are ready 


in its construction (though it resorts 
to the use of dreaded GOTO instructions 
in many instances), and not very long. 
The first few lines set up the computer 
for running the rest of the program. 
The rest of it breaks down into the 
following sections: 

Lines 200-250 give the player optional 
instructions. 

Lines 268-568 construct the board 

display on the screen. 

Lines 570-728 take a move from the 
keyboard, check for its validity and 
report back to the player on the 
screen.Lines 748-830 deal with the end 
of the game. 

Lines 1080-1080 take care of an invalid 
backwards move. 

Lines 1180-1148 take care of an invalid 
move off the edge of the board. 


1@ REM Program FLIP-FLAP 

20 REM Version E1.3 

30 REM Author S.Goodhead 

46 REM ELBUG June 1984 

58 REM Program subject to Copyright 


108 ON ERROR GOTO 88¢ 
110 *EFX4,2 
126 DIM Z$(1@):DIM Z3(17,17):DIM A(4, 


138 MODE6 

148 VDU19,9,4,8,9,9 

15@ PRINTTAB(G,5) 

168 PRINTTAB(9)"* F LI P-FLA P* 
"TAB (18,8) "by"TAB(14,18)"S. Goodhead" 

176 INPUTTAB(3,16)"Would you like ins 
tructions ? (Y/N)"X$ —- 
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Enter your move MOVE No.19 


186 IF LEFTS(X$,1)="N" GOTO 289 

190 IF LEFTS(XS$,1)<>"Y" GOTO 178 

208 CLS 

219 REM Instructions 

22@ PRINTTAB(4,5)"You start in square 

A4. As you move,the square you move to 
changes colour." 

236 PRINTTAB(4,9)"The object of the g 
ame is to end up with all the squares t 
he same colour in the fewest number of 
moves." 

248 PRINTTAB(4,13)"It's so easy - for 

some people !" 

256 PRINTTAB(4,16)SPC(5) "Now you can 
have a go."' 

268 INPUTTAB(4,20)"Press 'Return' whe 
n you are ready"X$ 

278 REM Draw the board 

280 MODE4:VDU19,9,4,9,9,0 

298 VDU23,1,0;0;8;G; 

360 VDU23,240,&FF,&FF,&FF,&FF,&FF,&FF 
7 &FE,&FEF 

316 VDU23,241,&CC,&CC,&33,&33,&CC,&CC 
7&33,&33 

328 RS=STRINGS (4,CHR$246) 

338 SS=CHRS (1G) +STRINGS (4,CHRS (8) ) 

340 RS=RS+SS+RS$+SS$+RS$+SS$+R$ 

358 GS=STRINGS (4,"_ ") 

368 GS=GS$+S$+G$+S$+G$+S$+G$ 

376 FOR X%=5 TO 17 STEP 4 

3808 FOR Y%=5 TO 17 STEP 4 

396 P%=RND (2) 

406 IF P$=1 TS=RS 

410 IF P%=2 TS=G$ 

42@ PRINTTAB(X%,Y%) TS 

436 NEXT:NEXT 

449 PRINTTAB(6,2)"A BC. op" 

450 PRINTTAB (4,4) STRINGS (18,CHR$241) 

466 X$=4:FOR Y%=5 TO 21:PRINTTAB(X3,Y 
$) CHRS$241:NEXT 

478 X%=2: PRINTTAB (X$,6) "1 "TAB (X%,19)" 
2" TAB (X$,14) "3"TAB(X$,18) "4" 

480 X%=21:FOR Y%=5 TO 21:PRINTTAB(X$, 
Y$) CHRS241: NEXT 


496 PRINTTAB (4,21) STRINGS (18,CHR$241) 

500 FOR X%=5 TO 17 STEP 4 

518 FOR Y%=5 TO 17 STEP 4 

520 READ 2%(X%,Y3) 

530 NEXT:NEXT 

546 RESTORE 1159 

558 X%=5: YS=17:QS="0":C=0 

560 PRINT: PRINTTAB(6)"Enter your move 

move no." 

576 PRINTTAB(25,6)"U = up"TAB(25,8)"D 
= down"TAB (25,18) "L = left"TAB(25,12)" 
R = right" 

580 REM Get the next valid move 

598 REPEATIS=CHRS (GET) 

600 UNTILIS="U" OR IS="D" OR IS="L" O 
R IS="R" 

610 IF IS="U" Y$=Y$-4: IF Y3<5 Y$=yY3+4 
: PROCwal1:GOTO59@ 

620 IF IS="D" Y$=Y$+4:IF Y$>17 Y$=Y%- 
4:PROCwall:GOTO 590 

630 IF IS="L" X%=X3-4: IF X8<5 XB=X$+4 
:PROCwall:GOTO 596 

640 IF IS="R" X$=X$+4: IF X$>17 X%=X%- 
4:PROCwall:GOTO 599 

650 IF IS=Q$ PROCback:GOTO 598 

660 IF IS="U" THEN QS="D" 

676 IF IS="D" THEN QS="U" 

680 IF IS="L" THEN QS="R" 

698 IF IS="R" THEN QS="L" 

760 IF ?Z%(X%,Y%)=255 TS=G$ ELSE TS=R$ 

710 PRINTTAB(X%,Y%) TS 

728 C=C+l 

730 PRINTTAB (29,23) "MOVE No.";C 

748 REM Check for end of game 

750 B=6:R=G 

766 FOR M%=5 TO 17 STEP 4 

776 FOR N$=5 TO 17 STEP 4 

788 IF ?Z%(M%,N%)=255 THEN B=B+1 

796 IF ?Z%(M%,N%)=@ THEN R=R+1 

808 NEXT:NEXT 

810 IF B=16 OR R=16 PRINTTAB(5,26) "Ga 
me completed in ";C" moves" ELSE GOTO 5 
96 

828 INPUTTAB(5,28)"Do you want anothe 
r game (Y/N) ";X$ 

830 IF LEFTS(X$,1)="Y" GOTO 130 

8498 MODE6 

850 *FXx4,G 

868 END 

870 : 

8808 ON ERROR OFF :MODE6 

890 *FX4,6 

966 IF ERR<>17 THEN REPORT: PRINT" at 
line ";ERL 

918 END 

929 : 

1846 REM Illegal retrace move 

1818 DEFPROCback 

1026 IF IS="U" Y%=Y$+4 

1038 IF IS="D" Y$=yY3-4 
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1040 IF IS="L" X$=X3+4 1128 VDU7 
1650 IF IS="R" X%$=X3-4 1138 PRINTTAB(5,28)"You cant go throug 
1668 VDU7 h the wall !":FOR D=1 TO 2500:NEXT: PRIN 


1676 PRINTTAB(5,28)"You can not go bac TTAB (5,28) SPC (30) 
kwards":FOR D=1 TO 5000:NEXT:PRINTTAB(5 1148 ENDPROC 


128) SPC (35) 1150 : 

1088 ENDPROC 1168 REM Board data 

1998 : 1176 DATA&5E68, &6368,&6868, &6D68,&5E88 
1186 REM Illegal move into wall 7&6388 ,&6888 , &6D88 , &5EA8 ,&63A8,&68A8 ,&6 
1118 DEFPROCwal1 DA8, &5EC8 ,&63C8,&68C8,&6DC8 @ 


BASIC KEYWORD ABBREVIATIONS & TOKENS 


Although the Electron keyboard allows a number of Basic keywords to be entered by 
single keys on the keyboard, in fact, nearly all the Basic keywords can be entered 
in an abbreviated form, which can be useful in a number of ways as well as reducing 
the amount of typing required. For example, keyword abbreviations are very useful in 
function key definitions to save space. The table below lists all the Basic keywords 
and their abbreviated forms together with the token for each keyword. This is the 
hexadecimal number which is used to represent each keyword internally. 


The keywords marked with an asterisk (*) are those which can be entered by single 
key strokes from the keyboard. The third column gives the hexadecimal value of the 
token. Note that the abbreviation includes the opening bracket if one is required. 


ABS ABS 94 GOSUB Gos E4 * PLOT PL FO 
ACS ACS 95 * GOTO G ES POINT( PO. BO 
ADVAL AD. 96 HIMEM H 93 POS — POS BI 
AND A 80 (right) J * PRINT P Fl 
ASC ASC 97 HIMEM H D3 * PROC PRO F2 
ASN ASN 98 (left) PTR PI 8F 
ATN ATN 99 Ik IF E? (right) 
* AUTO AU. C6 INKEY INKEY —A6 PTR PT aa 
BGE B. 9A INKEYS INK BF G 
BPUT BP. DS * INPUT 1 ES * RAD RAD B2 
CALL CA. D6 INSTR INS, AT READ REA FR 
* CHAIN CH D? INT INT AS REM REM Fa 
CHRS CHR. BD LEFTS( LE. co | * RENUMBER REN. cc 
CLEAR CL Ds LEN LEN AQ * REPEAT REP Fs 
CLG CLG DA LET LET E9 « REPORT = REPO. F6 
CLOSE CLO. by LINE LIN. 86 RESTORE RES F7 
CLS CLS DB * LIST ie co RETURN R F8 
*COLOUR C FB LN LN AA RIGHTS —RI. C2 
cos cos 9B * LOAD LO. cs RND RND B3 
COUNT cou 9c * LOCAL LOC EA 9 * RUN RUN F9 
DATA D. pc LOG LOG AB ff * SAVE SA. cD 
DEF DEF DD LOMEM LOM 92 SGN SGN Ba 
* DEG DEG 9D (righ) SIN SIN BS 
DELETE DEL c7 LOMEM ~—- LOM D2 SOUND — SO. D4 
DIM DIM DE (left) SPC SPC 89 
DIV DIV 8 MIDS M Cl ri ee ack sd 
* DRAW DR DF MOD MOD 83 ‘ s 8 
* ELSE EL 8B * MODE MO EB STOP STO FA 
* END END EO MOVE MOV EC STRS STR C3 
ENDPROC E EI NEW NEW CA STRINGS STRI. C4 
ENVELOPE ENV E2 * NEXT N. ED TAB TAB 8A 
EOR EOR 82 NOT NOT AC TAN T BI 
EOF EOF cs OFF OFF 87 * THEN TH. RC 
ERL ERL 9E * OLD fe) cB TIME Tl. a 
ERR ERR oF ON ON EE (right) 
ERROR ERR. 85 OPENUP OP. AD* TIME TI. DI 
EVAL EY. AO OPENOUT OPENO. AE (left) 
EXP EXP Al opt opt TO | TO BS 
EXT EXT A2 OR OR 84 TRACE TR. FC 
FALSE FA AB OSCLI osc Fre? re TRUE BY 
FN FN Ad PAGE PA 90 , mn 
* FOR le E3 (right) USR USR BA 
GCOL Gc. E6 PAGE PA bo fy var uae op 
GET GET AS (left) vere bs 32 
GETS GE. BE PI PI AF SioTH 2 Ls 
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CHOOSING TVS AND MONITORS 


by Steve Fox 


A bewildering range of colour monitors is now available. In this 
article, Steve Fox offers advice to those who are contemplating a 
purchase or would like to assess the monitor they are already using, 
with the test programs provided. We will be reviewing some of the 
currently available monitors next month. 


All good colour displays require a 
monitor having an RGB input. The 
computer generates three simultaneous 
TV signals: red, blue and green. These 
are fed (usually via a DIN plug) down 
three separate conductors in a multiway 
cable to the monitor. The three signals 
are applied to the picture-tube to 
generate three superimposed images. The 
colour you see depends on- which 
combination of the three signals is 
"on". Thus the red image superimposed 
on the green image is seen as yellow. 
Green and blue are seen as cyan, and so 
forth. 


The main difference between the 
image from a computer and a TV picture 
is that the computer's signals have 
only two values, on and off, whereas a 
TV picture will contain many 
intermediate tones and shades of 
colour. If you could get a TV picture 
by means of an RGB connection, you 
would have a superb image compared with 
what you usually see. This is actually 
done in TV studios, but for 
transmission the three signals have to 
be combined into one ("coded"), and 
then modulated on to a_ radio-frequency 
carrier. The TV receiver demodulates 
the combined signal and then decodes it 
(i.e. separates it into its three 
component parts). These transmission 
processes degrade the signal and your 
computer display will be similarly 
degraded if you connect it to a TV 
receiver by means of the aerial feed. 


However, it should not be assumed 
that a purpose-built RGB monitor will 
necessarily give you a better picture 
than a TV receiver which has_ been 
modified to take an RGB input. The type 
of picture-tube in the two is very 
often identical and so are the video 
circuits. But of course the TV receiver 
is enormously more complex containing, 
as it does, tuner and demodulator 


stages for vision and sound, a decoder 
to separate out the red, green and blue 
signals, audio stages, a loudspeaker 
and very often remote control also. The 
omission of all this technology should, 
by rights, knock some 40% off the 
price. In practice, a standard TV 
receiver costs about the same asa 
dedicated computer monitor of the same 
size. One has to pay a little more for 
the TV receiver to be modified for RGB 
input, but this may prove to be an 
excellent investment if you wish your 
monitor to double up as a colour 
receiver, for example as a portable. So 
far as I know, no manufacturer actually 
carries out such modification. The work 
is done by specialist dealers who 
usually work to a specification which 
has been approved by the manufacturer. 


Turning now to purpose-built RGB 
monitors, these come in three grades, 
depending on the resolution of the 
picture-tube. The "standard" resolution 
tubes are from the same range of 
mass-produced tubes which are found in 
TV sets. "Medium" resolution tubes are 
sold in much smaller quantities and so 
cost a lot more. A _ typical monitor 
incorporating such a tube would cost an 
extra £120. If you want a "High" 
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resolution tube this will cost another 
£128 or so. Are these extra costs 
justifiable? In terms of resolution, 
the answer is no. Mode @ graphics are 
low definition compared with a TV 
camera and a standard TV tube is more 
than adequate to resolve any detail 
which the BBC or Electron micro is 
capable of generating. But this is not 
the entire answer. 


For various reasons, we tend to view 
a computer monitor from a distance of 2 
or 3 feet, less than half the normal 
viewing distance for television. As we 
move in, the screen structure becomes 
more and more noticeable. If you have 
never done so, try taking a magnifying 
glass to the screen of a colour TV 
receiver: it's a revelation! The 
structure is particularly distressing 
when viewing an 88-column 
word-processor screen, because the 
distance between the colour stripes 
("slot pitch") is comparable with the 
width of the letters. But before you 
decide that you need a high resolution 
monitor to cope with word-processing, 
do bear in mind that a good monochrome 
monitor can be had for less than £100 
and that its screen structure is 
faultless! 


Of course, there is no doubt that 
the higher resolution (I prefer to call 
them “finer structure") screens are 
very pleasant to use for coloured 
graphics and if you can afford the 
luxury, go ahead. Those who can't 
afford it can get a_ cost-free 
improvement by sitting a bit further 
away from their screens! 


a EE 
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Having made your decision regarding 
the type of monitor you want to buy, 
study the adverts in the ELBUG 
supplements, and other magazines. There 
are substantial variations in the 
prices asked for an identical monitor, 
but I would advise against ordering 
without a demonstration, however 
reputable you believe the maker and the 
retailer to be. To arrange this may not 
be too easy as many of the more 
competitive firms deal mainly by 
mail-order, perhaps from a remote part 
of the country, but you may find it 
worth persevering. Computer clubs can 
also be a _ rich source of wisdom, and 
members are usually very willing to 
give a demonstration of their own 
monitor. 


TESTING YOUR TV_OR MONITOR 

Finally, you can test out your TV or 
monitor with the programs listed here. 
The testing and setting-up of monitors 
is a subject for the expert but, armed 
with programs 1-4, you can spot most of 
the faults. Here are some things to 
watch for. 


1. Using Program 1, the red, blue and 
green images should coincide over the 
whole area of the screen. If they 
don't, there will be coloured fringes 
visible on the white grille and dot 
pattern. 


16 REM TVMON1 

28 MODE 4 

36 VDU23,1,9;9;0;G; 

40 FORJ$=9TO1279 STEP 64 
58 MOVE J3,@ 

68 DRAW J%,1024 

70 NEXT 

88 MOVE 1279,0 

98 DRAW 1279,1024 

106 FORK%=@TO1023 STEP 64 
116 MOVE @,K% 

128 DRAW 1280,K% 

138 NEXT 

148 MOVE 8,1023 

15@ DRAW 1279,10823 

168 FORJ$=32T01248 STEP 64 
17@ FORK3=32T0992 STEP 64 
186 PLOT 69,J%,K% 

196 NEXT, 
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2. Linearity and geometry should be 
good i.e. no squashing or extension of 


5. RUN Program 4. The corners of the 
raster should be on the screen amd the 


the grille and all lines free of 
curvature. 


raster size should not change as the 
colours change. The white should 
neutral and not tinged with a colour. 

3. When the computer switches a colour 
on or off, the vertical edge of the 
waveform should be "clean", i.e. each 


block of colour in the colour-bar 

signal (Program 2) should be of uniform 16 REM TVMON3 
brightness. Avoid monitors which give 26 MODE @ 

dark or bright vertical lines along the 38 FORJ3=6T02558 
boundaries. 48 VDUJSMOD95+32 


5@ NEXT 


1@ REM TVMON2 


2@ MODE 2 1@ REM TVMON4 
38 VYDU23,1,9;0;9;G; 28 MODE 4 

40 FORJ$=GT0112G STEP 160 30 REPEAT 

5@ READ K% 49 FORJ%=@8TO7 
68 GCOL G,K% 58 VDU19,0,J%;G; 
78 MOVE J%,@ 68 Z=INKEY 100 
88 MOVE J%,1024 76 NEXT 

98 PLOT 85,J%+160,1024 86 UNTIL @ 


168 MOVE J%,@ 
116 PLOT 85,J%+160,0 sila 


Some of the defects which may be shown 
up by these tests may be remediable by 
the vendor: others will not. To avoid 
disappointment, don't buy a monitor 
unless it has actually performed to 
your satisfaction. Next month we will 
review some of the monitors now 
available for the home computer user. 


130 DATA 7,3,6,2,5,1,4,0 


4, Use Program 3 to form a subjective 
judgement of definition. The screen 
structure should not be too obtrusive. 


1S a 
HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


QUICK WAY TO TYPE OUT THE CONTENTS OF P% - M.Davis 

Type the '[' key (Shift and Copy key together) followed by Return and the value 
of P% is printed in hexadecimal form. This is the contents of the 'program counter'; 
of interest for assembler programming. 


MERGING VDU CALLS - P.Vincent 
Don't forget that successive VDU calls may be merged into one, for example, 
VDU 12,14,19,1,4,8,0,8 is the same as 
VDU 12:VDU 14:VDU 19,1,4,0,0,0 & 


BBC/ELECTRON ACORNSOFT COMPATIBILITY - R. Paine 


Mr. Paine informs us he has been notified by Acornsoft that the program packages 
‘BCPL', 'Graphs and Charts', and ‘Creative Graphics' for the BBC micro, will run in 
their entirety on the Electron (provided you do not do something like selecting Mode 
7 presumably). There are more packages that will run perfectly well, but with the 
shortcoming of a distorted title page while loading, (this due to the use of the 
Mode 7 display for the title page). These other programs include 'Word Sequencing', 
‘Word Hunt', 'Lisp', ‘Sliding Block Puzzles', 'Chess', 'Missing Signs', 'Turtle 
Graphics', 'Desk Diary', 'Snooker', 'Forth', 'Microtext', 'Picture Maker', and 'Cube 
Master'. Many of these are or soon will be available especially for the Electron. @ 
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USING THE CURSOR KEYS IN A PROGRAM 


by Philip Le Grand 


You are probably familiar with using 
the cursor keys for editing purposes 
but they can also be used within a 
program to control, for example, 
vertical and horizontal movement on the 
screen. This is usually achieved by 
changing the normal function of the 
cursor keys so that they generate their 
equivalent ASCII (American Standard 
Code for Information Interchange) code, 
using the command *FX4,1. The 
particular code values associated with 
the cursor keys are: 


up 139 down 138 
left 136 right 137 
copy 135 


For example, try 
following program: 


running the 


18 MODE 6 

20 *FX4,1 

3@ A=GET 

40 IF A=139 THEN PRINT "UP PRESSED" 
58 GOTO 38 


You should find that any time you press 
the cursor up key then a_ corresponding 
message is displayed on the screen 
otherwise nothing. The program could 
easily be extended to test for any of 
the other cursor keys as well. 


In a similar way, the cursor keys 
can be used as extra function keys 
using another variant of *FX4 (see the 
‘Extra Function Keys' hint in ELBUG 
Vol.1 No.4 and also the User Guide, 


Appendix D). The normal functions of 
the cursor keys are reinstated with: 


*FX4,0 <return> 


With all types of * command you should 
ensure that they are the only, or last, 
instruction in any line of the program. 


The following example program 
demonstrates how the function keys can 
be detected within a program. It 
displays an 'invader' on the screen, 
and then using the four cursor 
direction keys, the invader can be 
moved to any part of the screen. 


168 REM CURSOR KEYS DEMO 

118 ON ERROR GOTO 276 

128 MODE 1 

136 VDU23,244,192,153,60,98,126,60, 
66,129 

146 VDU 5:GCOL3,2 

15@ *FX4,1 

166 X3=640:Y3=512 

176 REPEAT 

188 X1S=X3:Y1S=Y$ 

198 MOVE X%,Y%:PRINT CHRS (244) 

200 A%=GET 

219 IF A$=136 THEN X%=X%-4 

226 IF A%=137 THEN X%=X3+4 

230 IF A%=138 THEN Y%=Y%-4 

240 IF A%=139 THEN Y%=Y%+4 

258 MOVE X1%,Y1%:PRINT CHR$ (244) 

260 UNTIL FALSE 

278 MODE 6:*FX4,@ 

288 END 


PROGRAM NOTES 

The *FX4 command to turn off normal 
editing facilities can be found in line 
158. These are reset in line 276 if you 
exit from the program. The other lines, 
up to line 16@ select screen Mode 1, 
define a character for the invader 
(line 136), join the text and graphics 
cursors to allow finer positioning of 
characters and select the initial 
position of the invader with X% and Y%. 


In the main loop of the program, the 
invader is first displayed in yellow, 
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using Exclusive-OR plotting, and then 
the computer waits for a _ key to be 
pressed. When this happens, the ASCII 
value of the key is returned in A%. 
Lines 2186 to 248 then check to see 
which, if any, of the cursor keys have 
been pressed, in manner very similar to 
our first example. For example, line 
218 tests whether the value in A% 
corresponds to the left cursor key. If 
it does, then the x co-ordinate is 
decreased by 4. The invader is 
replotted at the old X%,Y% position to 
erase the previous image, and the loop 
returns to the start to display it in 
the new position. If any other key is 
pressed, the invader is redisplayed at 
the same point. The loop is repeated 
indefinitely, or until you press Escape 
or Break. 


At the moment, the program will move 
the invader off the screen if it is 
moved far enough. However ie is 
possible to prevent this by changing 
lines 219 to 246 to take account of 
this: 


210 IF A%=136 AND X%>1@ THEN X%=X%-4 
226 IF A%=137 AND X%<124@ THEN X%=X%+4 
230 IF A%=138 AND Y%>3@ THEN Y%=Y3-4 
246 IF A%=139 AND Y$<1@0@ THEN Y3=Y%+4 


Line 218 now checks to see if the 
left cursor key has been pressed AND if 
the invader is more than 19 graphics 
units in from the left hand side of the 
screen before the new position for the 
invader is calculated. 


The reason for using Exclusive-OR 
plotting is to avoid the need to erase 
an invader by redefining the invader's 
colour to black, plotting it at the old 
position to erase it, and then defining 
its colour to be yellow again. If you 
display any object using Exclusive-OR 
plotting (GCOL 3,n), then plotting the 
object a second time effectively erases 
it from the screen. e 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


VDU_FUNCTIONS FROM CONTROL CHARACTERS - Mrs. A.E. Morland 
For a blue striped background for your text, without using a function key or 
writing the command on the screen, keep the CTRL key down and type 'SBD@@@' (but 


not in Modes 2 or 5). 


(What this does is to send the equivalent of a VDU 19,2,4,8,8,@ command to the 
Electron which redefines the logical colour of the background as blue. See the VDU 
19 command in the User Guide p. 266, or for more ideas, see Appendix A. For example 
CTRL 'L' will clear the screen, or CTRL 'SAB@@@' will make a colour TV look like a 


green screen monitor). 


PROGRAM LENGTH - D.Reisenberger 


To find out the length of a program that has been loaded from tape, print the 
decimal equivalent of the four figure hex number that appeared on the screen at the 
end of loading. For example, if it is 3400, then typing ‘Print &3408' will give the 


required number - ie.13312 bytes. 


QUICK PROC_OR FN LOCATE - P.Bhandari 


To find a procedure in a very long program without searching through a long 
listing of it, try this. To find, for example 'PROCintro', type in immediate mode 


TRACEON: PROCintro 


The line number at which the Basic code for PROCintro starts will then be printed on 
the screen in the first set of brackets. Don't forget to give any parameters that 
may be required. To do the same with functions, type 


TRACEON: PRINT FNintro 


(remembering again to give it any parameters that may be needed). & 
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FOUR GAMES REVIEWED 


Title : Danger UXB 


Supplier : Program Power 
Price 3 £7.95 

Rating : kkRE 

Reviewer : Alan Webster 
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Do you remember the popular 
television series "Danger! UXB"? It was 
about members of a bomb disposal squad 
defusing unexploded bombs around the 
time of the second world war. Well, 
this game of the same name has cast you 
in the role of the bomb disposal 
expert. 


Title : Fruit Machine 
Supplier : Superior Software 
Price 3: £7.95 

Rating 3 oe 

Reviewer : Alan Webster 
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Fruit Machine is a Made 2 
implementation of the arcade and pub 


Each bomb is represented by the word 
TNT and a number which counts down 
towards zero. If the number reaches 
zero, the bomb explodes and you lose a 
life. You can defuse the bomb by 
running on to the square that contains 
the bomb. 


There are skulls warning of 
unexploded bombs positioned around the 
screen, and these must be avoided at 
all costs. The game is made more 
difficult as each square on the board 
can only be visited once per screen, 
and some thought is needed to work out 
the best route each time. 


The game has three skill levels, 
with the third being very difficult, as 
you are being chased by big army boots 
at the same time as you are trying to 
defuse the bombs. 


This is a very colourful and 
enjoyable game, and one that you will 
want to play again and again. 


favourite, but unfortunately it does 
suffer quite a lot from lack of speed. 


I found the game quite tedious after 
a while, as you wait for the reels to 
spin, plus the fact that there are very 
few extras included in this game, apart 
from a simple nudge and gamble 
facility. 


Fruit machine games demand the full 
range of colours available in Mode 2 to 
provide a really good screen display, 
but the resulting lack of speed 
considerably reduces the appeal of this 
version. 


[See our series on "Using BBC Micro 
Programs on an Electron" in issues 4 to 
6 of ELBUG for more information about 
the effect of screen mode on the speed 
of the Electron - Ed.) 
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Title =: Chuckie Egg rather peculiar looking bird called 
Supplier : A & F Software Chuckie Egg, and you have to walk and 
Price : £7.99 fly around a _ complex of ladders, 
Reviewer : David A. Fell floors, and (later on) elevators, 
Rating =: **** collecting eggs. Each round is 


completed when all of the eggs have 
been gathered, and you can gain extra 
points by eating the piles of grain 
that are also present. There is a bonus 
for completing the round as quickly as 
possible, and hazards are provided in 
the form of stork-like birds, which eat 
the piles of grain, and kill you if you 
get too close, with more features 
appearing as the game advances. 


The game gets increasingly harder as 
you progress through different levels, 
and the graphics, although perhaps a 
little simple, are quite pleasing, as 


Chuckie Egg is one of those are the sound effects. This game is 
addictive games that you could happily certainly well worth purchasing, and 
play all day, given nothing else to do. will provide hours of entertainment to 
The scenario is very basic; you are a the game player. 

Title : Invaders 

Supplier : Superior Software The sound effects are a little 
Price : £7.95 uninspired, and the game would probably 
Reviewer : David A. Fell be better off without some of these; 
Rating 3 RRR they tend to be a boring, monotonous 


din on the ear drums after a few 
thousand points. 
This game is an implementation on 


the Electron of the classic arcade game I don't feel that I could fully 
Space Invaders. It runs in Mode 5 (and recommend this game to all but the most 
hence only uses four colours), and persistant of games players. If you do 
features some attractively designed play this game, but find the sound 
characters. The movement in the game is effects unpleasant, *FX218,1 typed in 
smooth and flicker free, but it does before the CHAIN" will turn off all 
slow down noticably when you are firing the sound. (Note: don't press Break, as 
and a 'mothership' crosses the screen. this will cancel the effect of this.) @ 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


MACHINE CODE AT &E@Q - M.Tilley 

If a machine code program is required to reside in the page starting at address 
&E@G, preface it with the two empty bytes (at &E@@ and &E@1) and make &E@2 the first 
address used. If this is not done, pressing the Break key will destroy the first two 
bytes of the program. (If &@D and &FF are inserted into addresses &E@@ and &E@1, 


BLACK ON WHITE TEXT - George Foot 

If you're trying to use an 88 column Mode display and finding it difficult to 
read, try reversing the foreground and background colours. Black text on a white 
background is sometimes more legible on a poor display. 
(In MODE @, this can be done by entering VDU19,G,7,9,0,0:VDU19,1,9,9,9,@) & 
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ROTATING AND EXPANDING CHARACTERS 
by P. Manhire 


This is a collection of short routines in assembly code which will 


allow any printable character (alphanumeric or user defined) 


to be 


rotated or enlarged in any position on the screen. 


The routines described here can be 
used in many ways, for example: 


(1) Produce quadruple sized 

text in all modes. 

Producing new character 
defin- itions (for games 
etc.). It is possible to E 
produce giant invaders or 


inverted frogs or 
munchy-men or E 


rotating 
whatever, from previous 
character definitions 
without having to work 
out the new definitions. 
(3) Labelling the vertical 

axes of graphs, diagrams, 

etc. 

The program listed at the end of the 
article is in two parts. The assembly 
code which manipulates characters is 
contained in the procedure PROCassemble 
listed from line 1000 to 1730. It is 
this procedure that should be added to 
your own programs to incorporate the 
rotate and expand routines. The main 
program, from lines 18 to 266 provides 
a short demonstration of the use of 
these routines. Type the whole program 
in and save it to cassette. You may 
also wish to save the procedure 
separately using *SPOOL (delete lines 
18 to 268 first) so that you can use 
*EXEC to append this procedure to any 
of your own programs. This technique 
was explained in the article on 


(2 


functions and procedures in  ELBUG 
issue 5. 
To use the rotate and expand 


routines, the procedure PROCassemble 
must first be called to assemble the 
machine code at &A@@, and this is done 
in the demonstration program at line 
106. This area of memory is not 
normally used by the Electron, and is 
thus available to the user. You can 
change this address by altering line 
358 (see Note 1 later). The machine 
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code is subdivided into five routines 
which may each be called separately. 
The five calls and their functions are 
given in the table. 


If you run the complete 
demonstration program, it results in 
any letter entered from the keyboard 
being printed to the screen in a 
variety of ways - reflected, rotated, 
inverted and expanded. Inspection of 


this program will show how to call and 
use the various routines, but here are 
a few additional examples and notes on 
their use. 


All operations must 
begin by setting X% equal 
to the ASCII code of the 
character to be manipulated 
(it can be one that you 
have defined yourself in 
the range 224 to 255) and 
then calling Getchr. Use 
the Electron User Guide, 
Page 285 to get ASCII codes 
a - eg. ASCII 75 = "K", If 

you want to manipulate your 

2 own characters, first 

define them with VDU23 (see 

User Guide page 93), and 

then set xX% to the 

character number that you 

a have chosen (avoid values 

258 to 254 since these are 
used by this program). 


a To take a real example, 
we will manipulate a space 
invader. These steps assume 
that the procedure 
PROCassemble has been 
loaded into memory first 
and the machine code 
assembled by typing: 
PROCassemble <return> 
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Rot 


ASSEMBLER PROCEDURES 


This reads the dot pattern of any character into memory at locations &71 to 
&78 and &81 to &88. To use it; first set X% to the ASCII code of the 
character you want to manipulate and then CALL Getchr. 

This performs a VDU 23 call to define a character with the manipulated 
character in &81 to &88. To use it; first set X% to the ASCII code of the 
character you want to define. 

This rotates the character read by Getchr ANTICLOCKWISE by 98 degrees. 
CHR$258 is always defined as the rotated character but Rot followed by Put 
will define any other character. 


Invert 


Invert This inverts the character read by Getchr (ie. like the reflection in a pool 
of water). CHR$25@ is always defined as the inverted character but 
followed by Put will define any other character. 

Expand This takes the character read by Getchr and expands it to fill a block of 
four characters (always CHR$251 to CHR$254) . 

Type 'NEW <return>' to delete the 


unassembled version of the procedure 


before 


18 below creates the space 
character 
after this in modes 4 or 


The easiest way to print the 
expanded character is to define a 
entering the lines below. Line variable say 'character$' as follows: 
invader as 
(try executing VDU224 


5). Line 26 


224 character$=CHR$251+CHR$252+CHR$10+CHRS8 


+CHRS$8+CHR$253+CHR$254 


stores the character in the locations 

reserved by the manipulator routine. To The characters with ASCII values 16 and 
rotate the invader you simply call the 8 move the cursor down one line and 
routine 'Rot' (in line 30 below). The back two positions to complete the 
rotation and inversion routines 'Rot' bottom two characters making up the 
and '‘Invert' define the new character block of four. Then typing: 

as character 258, so to print it, line 


46 is used below: 


18 VDU23,224,60,126,219,255,126,60,66, 36 
20 X%=224:CALL Getchr 

38 CALL Rot 

40 PRINT CHR$25¢ 


To turn it on its head, add: 


PRINT character$ <return> 


will print the expanded character. This 
could be positioned anywhere on the 
screen using PRINT TAB instead of just 
PRINT. 

Here are two further examples: 


X3=ASC"W":CALL Getchr:CALL Rot:PRINT CH 
R$250 


58 X%=250:CALL Getchr 


6@ CALL Rot 
76 PRINT CHR$256 


This picks up the rotated invader, and 
rotates it once again. 


The following sequence will produce 
an expanded version: 


X%=224:CALL Getchr:CALL Expand 


This expands the original character 


would print a letter "W" on its side. 
PRINT"£":X$=ASC ("£") :;CALL Getchr :X%=256 
:CALL Rot:CALL Getchr:CALL Expand: PRIN 
T CHR$251 ;CHR$252'CHRS$253;CHRS$254 


would produce: 


a SP 


NOTE 1: The code is loaded between &AG@ 
and &AFF. This APPEARS to be safe but 
if you do not trust this you must 


into a block of four characters (ASCII 
251, 252, 253 and 254) while 
maintaining the shape. 
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relocate the code elsewhere. This is 
done by changing line 356 in 
PROCassemble from P%=&AG@ to P%=(new 
location) 


NOTE 2: The code can be saved without 
the BASIC assembler. This is done by 
running the program as listed and then 
typing: 

*SAVE"CODE" AGG BOG AGB <return> 


The code will then be saved on tape. To 
reload it directly into memory type: 


*LOAD"CODE" <return> 


and press 'Play' on the cassette 
recorder. If you do this you will not 
be able to call the machine code 
procedures by name (Getchr etc). You 
must use the addresses in the REM 
statements in PROCassemble instead. For 
example, use CALL &A5D instead of CALL 
Expand. 


ROTATION 
c u 


REFLECTION 
a) A 


EXPANSION 


<= Lo 


1@ REM PROGRAM CHMAN 
28 REM AUTHOR P.Manhire 
3@ REM VERSION E@.1 


4@ REM ELBUG JUNE 1984 
5@ REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 


188 PROCassemble 
116 AS=CHR$8+CHRS8+CHRS16 
128 BS=CHR$251+CHR$252+AS+CHRS$253+CHR 


136 MODE5:VDU19,2,5,9,8,0,19,3,6,0,0,9 
146 PRINT TAB(4,5);"Press any Key":C$ 


156 IF CS="#" THEN MODE6: END 

168 PRINT TAB(@,10) ;"ROTATION" 

176 PRINT TAB(G,15) ;"REFLECTION" 
188 PRINT TAB(G,2@) ;"EXPANSION" 
198 COLOUR2:X%=ASC (C$) :CALL Getchr 


200 X%$=250:FOR I%=6 TO 3:CALL Rot:PRI 
NT TAB(2+1%*5,12) ;CHRS25@:CALL Getchr:N 
EXT 

218 X%$=250:CALL Getchr:CALL Invert:CA 
LL Getchr:FOR I%=@ TO 3 

226 CALL Rot::PRINT TAB(2+1%*5,17) ;CH 
R$25@:CALL Getchr:NEXT 

238 X%=ASC(CS) :CALL Getchr :X%=2590 

248 FOR I%=@ TO 3:CALL Rot:CALL Getch 
r:CALL Expand:PRINT TAB(2+I$*5,22) ;BS:C 
ALL Getchr:NEXT 

256 COLOUR3:PRINT TAB(4,6);"or # to s 
top":GOTO 148 

268 : 

1006 DEFPROCassemble 
1018 REM Assembles code at &AG@ 


1028 REM CALLS NAME ADDRESS 
1638 REM Getchr &AGG 
1848 REM Rot &A17 
1850 REM Putchr &A33 
1868 REM Invert &A4D 


1078 REM Expand &A5D 

1680 FOR J%=@ TO 3 STEP 3 

1696 PS=&AGB 

1106 [OPT @ 

1118 .Getchr 

1120 \**** 

1130 STX &70:STX &80:LDX#&7@:LDY #8:LD 
A #10 

1146 JSR &FFF1:LDX#&8@:LDY #8:LDA #10 

1150 JSR &FFF1:RTS 

1168 .Rot 

1170 \**** 

1188 LDX #&71:LDY #&88 

1198 .Loop:ROL @,X:TXA:STY &79:LDX &79 

1206 ROL @,X: TAX: INX:CPX #&79:BNE Loop 

1210 LDX #&71:DEY:CPY #&80:BNE Loop 

1226 LDX #250 

1236 .Putchr 

1240 \**** 

1256 LDA #23:JSR &FFEE 

1260 TXA:JSR &FFEE 

1276 LDX #&81 

1286 .Loop2:LDA %,X:JSR &FFEE 

1298 INX:CPX #&89:BNE Loop2:RTS 

1366 .Invert 

1316 LDX #&71:LDY #&88 

132¢ \keRE 

1338 .Loop3 

1340 LDA 6,X:STA @,Y 

1358 INX:DEY:CPY #&88:BNE Loop3 

1368 LDX #250 

1378 JMP Putchr 

1386 .Expand 

1398 \kee* 

1466 LDX #251:STX&8E 

1416 LDX #@:STX &8C:STX &8D 

1426 LDX #&71:STX &8A 

1436 LDX #&81:STX &8B 

1448 JSR Qchr 
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1456 
1468 
1478 
1486 


#252: STX&8E 

#8:STX &8C:STX &8D 
#&71:STX &8A 

#&81:STX &8B:JSR Qchr 
#253: STX&8E 

#0:STX &8C:STX &8D 
#&75:STX &8A 

#&81:STX &8B :JSR Qchr 
#254: STX&8E 

#6:STX &8C:STX &8D 
#&875:STX &8A 

#&81:STX &8B :JSR Qchr 


1526 
1538 
1546 
1558 
1568 
1576 
1589 
1596 


RTS 
-Qchr 
-Loop5 


&8A:ROL @,X:LDX &8B:JSR Enter 
&8C:INX:STX &8C:CPX #4 
Loop5:LDX #@:STX &8C:LDX &8A 
:STX &8A:LDX &8B: INX: INX 
&8B:LDX &8D: INX:STX &8D 
#4:BNE Loop5:LDX &8E:JSR Putc 


RTS 

-Enter:BCS Full 

CLC:ROL @,X:CLC:ROL @,X:INX 
CLC:ROL 9,X:CLC:ROL @,X:RTS 
-Full 

SEC:ROL @,X:SBEC:ROL @,X: INX 
SEC:ROL @,X:SEC:ROL @,X:RTS 


1738 ]:NEXT:ENDPROC 


NIAGARA FALLS BRAINTEASER WINNER 


In the supplement included with the 
March issue of ELBUG, we presented a 
Brainteaser competition on the theme of 
crossing Niagara Falls. The winning 
Electron entry was from Kevin Allen who 
has now received his £26 prize, and the 
screen display produced by his winning 
program is shown in the illustration. 
Unfortunately, this cannot show the man 
actually moving along the rope, nor the 
falling water. We list here Kevin's 
winning program. 


1@ REM PROGRAM NIAGARA 

206 REM AUTHOR Kevin Allen 

3@ REM ELBUG JUNE 1984 

48: 
198 MODE 2:PROCsetup: PROCscreen 
REPEAT 

PROCwater :VDU19,10,1%;G; 


1168 : 
1116 DEF 
1128 VDU 


PROCwater 
4,28,3,29,16,12 


1136 SOUND 8,-15,4,RND(3)+6 


IF I$=4:I%=7:ELSE I$=4 

VDU 19,9,1%3;9; 

SOUND @,-15,4,6+RND(4) :PROGnan 
UNTIL FALSE 


DEF PROCman :X%=X%$+32 


1148 PRINT TAB(RND(14)-1,8) ;CHRS (248) ; 
TAB (RND(14)-1,7) ;CHRS$ (24@) ; TAB (RND (14) - 
1,7) ;CHRS (246) 

1156 VDU30,11,28,7,29,12,12,36,11,26,5 

1168 GCOL 6,7 

1178 TIME=@6:REPEAT: PLOT 69,RND(832)+19 


161@ IF X%>1224:MOVE X%-32,716:PRINTMA 
NS$:X%=32:MOVE X%,716:PRINTMANS : ENDPROC 
1628 IF X%<192 OR X%>1024:MOVE X%-32,7 
16:PRINT MANS:MOVE X%,716:IF MANS=MAN2$ 
:MANS=MAN1$: PRINT MANS: ENDPROC 

1036 IF X%<192 OR X%>1024: IF MANS<>MAN 
2$:MANS=MAN2$: PRINT MANS: ENDPROC 

1046 X=(X%-576) *2:YS=( (141.42* (EXP (A*X 
) +EXP (-A*X) ) )- (141.42) )DIV2+616 

1650 IF X%=192:y%=716 

1966 MOVE X%-32,y%:PRINT MANS 

1878 MANS=MAN3$ 

1686 MOVE X%,Y%:PRINT MANS: y%=Y% 

1698 ENDPROC 


2,632+RND (4) :UNTIL TIME>7 


1180 
1198 : 

DEF 
VDU 
1228 VDU 


ENDPROC 


PROCsetup 

23,1,8;0;0;0; 
23,246,16,9,0,16,16,0,0,16 
23,241,255,66,96,9,96,66,255, 


23,242,6,0,12,18,33,66,128,0 
23,243,16,16,48,68,131,9,6,9 
23,244,0,16,28,24,16,0,8,32 
23,245,66,0,0,9,0,8,0,24 
23,246,9,8,9,9,5,56,56,24 


Continued on Page 33 —p> 
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ELECTRON GRAPHICS (Part 7) 


by Mike Williams 


This month, in our series on Electron Graphics, we shall look at 
some more of the many variations that are possible with the PLOT 
instruction, that has already provided us with several very useful 


procedures. 


So far, we have looked at two very 
specific uses of the PLOT instruction 
in Basic, the use of PLOT85 to display 
solid looking triangles, and PLOT77 
which we can use to fill or colour any 
shape. At this stage it is useful to 
realise that PLOT is a general purpose 
graphics instruction unlike the MOVE 
and DRAW instructions that we looked at 
in an earlier article. In fact the 
general instruction PLOT@,X,Y is 
exactly equivalent to MOVE X,Y, and 
PLOTS,X,Y is exactly the same as DRAW 
X,Y. 


RELATIVE PLOTTING 

In the past, whenever we have 
wanted to refer to a point on the 
screen, we have specified a position 
(X,Y) on the screen where X and Y are 
the horizontal and vertical distances 
from the origin (6,6). This is called 
an absolute reference or position. The 
point (@,@) is normally at the bottom 
left hand corner of the screen, though 
you can change this, as we did for 
circle plotting, using the vbDU29 
instruction. For example, you may 
remember the procedure we wrote for 
drawing a square: 


1966 DEF PROCsquare(size,x,y) 
1816 MOVE x,y 

1628 DRAW x,y+size 

1638 DRAW x+size,ytsize 

1046 DRAW x+size,y 

10858 DRAW x,y 

1866 ENDPROC 


There is a second way of specifying 
a point on the screen, by giving the 
distance from the last point visited 
by the graphics cursor, rather than the 
absolute or fixed position. This uses 
PLOT] instead of DRAW (or PLOTS). If we 
rewrite the procedure above, it will 
read as follows: 


1608 DEF PROCsquare(size,x,y) 
1616 PLOT @,x,y 


1620 PLOT 1,G,size 
1038 PLOT 1,size,@ 
1049 PLOT 1,0,-size 
1056 PLOT 1,-size,@ 
1668 ENDPROC 


If you type in either of these 
procedures, remember that you can test 
them out in immediate mode, provided 
you select a graphics mode first, by 
just typing PROCsquare followed by 
suitable parameters in brackets. For 
example: 

MODE 4 <return> 

PROCsquare (200,648,512) <return> 
This will draw a square of side 200 
with its bottom left hand corner in 
position (649,512). 


In the second version of the 
procedure, I have used PLOT 
instructions throughout, although I 
could just as easily have used a MOVE 
instruction at line 1018 instead. The 
instructions used here to draw the 
square could be written as follows: 
"from the starting point, draw a 
distance 'size' vertically upwards, 
then a line the same distance 
horizontally, then another line the 
same distance but now downwards (hence 
the minus sign), and lastly a fourth 
line the same distance again back to 
the starting point (to the left, and 
thus again minus)". At no time do we 
use the actual position of any corner 
of the square as everything is 
specified relatively. 


Whether you prefer the first or the 
second method is, I think, largely a 
matter of personal choice, though some 
might argue that the second method 
involves less arithmetic, and is thus 
both simpler and faster. Just decide 
which method you prefer to use, but 
also be guided by the circumstances 
and always try to choose the simplest 
method if a choice is available. 
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DOTTED LINES OR SOLID LINES 

Another option available with the 
PLOT instruction is the drawing of 
dotted instead of the more usual solid 
lines. Adding 16 to the 'PLOT' number 
will produce a dotted rather than a 
solid line. Thus PLOT17 is the same as 
PLOT] (relative plotting) but with a 
dotted line, and PLOT21 is likewise 
similar to PLOTS (absolute plotting). 


Although a PLOT instruction is 
normally listed with a specific 'PLOT' 
number, this can instead be replaced by 
a variable. For example, we will 
rewrite the last procedure so that it 
will draw a square with either a solid 
or a dotted line. We will do this by 
introducing an extra parameter, which 
I'll call 'type', which will have the 
value @ for a square of solid lines, 
and 1 for a square with dotted lines. 


The revised version of our procedure 
is as follows: 


1000 DEF PROCsquare(type,size,x,y) 
1616 LET t=16*type+1 

1626 PLOT @,x,y 

1038 PLOT t,@,size 

1048 PLOT t,size,@ 

1656 PLOT t,-size 

1866 PLOT t,-size,@ 

1@67@ ENDPROC 


Remember that if you type this in, you 
can test it out in immediate mode. 
Thus: 

PROCsquare (0,406, 208,200) 
would give a square of size 4008 and in 
position (280,208) drawn with solid 
lines while 

PROCsquare (1,400,668, 686) 
would give a square of the same size in 
position (606,600) but drawn with 
dotted lines. 


The procedure first calculates the 
correct 'PLOT' number for the type of 
line required, and assigns this value 
to the variable 't'. This is then used 
with the PLOT instruction to give 
dotted or solid lines. The facility to 
replace the ‘PLOT' number with a 
variable is a very useful and flexible 
feature of the PLOT instruction. Some 
surprising results may often be had 
when a little ingenuity is used. 


PLOTTING POINTS 

Another useful variation on the PLOT 
instruction provides for the plotting 
of a point, rather than a line. Again 
the position of the point can either be 
specified as an absolute position on 
the screen (using PLOT69) or relative 
to the last position (using PLOT65). 
This enables’ single points to be 
positioned anywhere you want on the 
screen. 


SUMMARY OF PLOT INSTRUCTIONS 

All PLOT instructions have the same 
basic format of 

PLOT k,x,/y 

where x,y is a relative or an absolute 
position on the screen, and k 
determines the plotting function 
carried out. Those that we have so far 
described are as follows: 


Value of k Function 


Move relative to last point. 
1 Draw a solid line relative. 
4 Move to absolute position. 
(Same as MOVE x,y) 
5 Draw a solid line absolute. 
(Same as DRAW x,y) 
a? Draw a dotted line relative. 
21 Draw a dotted line absolute. 
65 Plot single point relative. 
69 Plot single point absolute. 
73 Fill left and right relative. 
77 Fill left and right absolute. 
81 Plot & fill triangle relative. 
85 Plot & fill triangle absolute. 


These are not, of course, the only 
PLOT instructions available, as a quick 
glance at the User Guide will soon 
show. They are, however, the ones most 
commonly used. Note how most of the 
instructions are in pairs, for relative 
and absolute plotting, and that in each 
pair, the 'PLOT' numbers differ by 4 
exactly. Patterns like this can often 
be used to produce efficient and 
flexible programs. 


Next month, as already mentioned, 
we = shall look at some of the 
interesting possibilities available 
when we Start manipulating colour. One 
clever effect that we shall describe, 
is how to make one moving object appear 
to travel behind, or in front of, a 
stationary object. 
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PLAY THE STOCK MARKET 


by Nick Day 


Have you ever fancied your hand playing the stock market? Did you 
ever want the opportunity to gamble somebody else's money away on 
the stock exchange, and did you feel that the whole business was a 
little too complicated to get to grips with? Well we'll give you a 
chance with this program. It's the computer's money, which is a good 
start, it's confined to a limited market for simplicity, and it's 


fun. 


The computer gives you (yes, gives 
you) a thousand pounds to start with. 
It's then up to you to let your 
entrepreneurial skills have full reign, 
and sensibly invest that windfall to 
make more. You're given a choice of 
four companies to put money into, those 
being fictitious firms with familiar 
sounding names like 'Red' or ‘Blue’. 
Monthly reports are _ prepared, in 
graphic form, from which you plan your 
financial strategy, and the computer 
will then, under your instructions, 
carry out the buying and selling of 
shares as required. 


When you run the pogram it will ask 
you for the number of players (or 
investors). This may be from just one 
up to six. Then it will begin its first 
cycle by displaying a graph showing the 
relative share prices of the four 
companies; a different colour for each. 
Before entering the transaction phase, 
where all the buying and selling is 
done, each player is given an 
Opportunity to digest the graphic, and 
tabular information available to him. 
Separate tables of data are compiled on 
an individual basis. Important 
information about a player's financial 
situation and share costs are presented 
in an analytical format. Switching 
backwards and forwards between the two 
displays is easily done by pressing 'G' 
for the graph, or 'D', for the data 
table, until the player is quite 
satisfied he has a plan of action. 


The transaction phase is entered 
from the data display by typing 'T', to 
sell off bought stocks or to buy more. 
The end of the transaction phase is 
marked by the pressing of the 'F' key, 
whereupon the program will return to a 
graph display and prompt for the next 


broker's instructions. It will prompt 
for all information needed from each 


Player. When all the players have 
entered their transactions (and each 
must complete a minimum of three per 
month), the program will go intoa 
quick calculation phase for that month. 
The graph returns to show the latest 
prices for Messrs. Red and Blue etc. 
Then you'll begin to get an idea about 
how well you've done. This cycle 
repeats itself once for every month 
during a year, and at the end of that 
year each broker's financial standing 
is displayed for assessment. 


PROGRAM NOTES 

Two main procedures, PROCdrawgraph 
and PROCtable, are responsible for 
drawing the graph and printing the 
results tables at the end of each 
month. PROCask, PROCtrans and PROCact 
deal with the transaction phase. 


Two other procedures which could be 
useful in other applications are 
PROCwait and PROCprcol. The former is a 
delay loop that will wait for the 
number of seconds that are given as the 
parameter, 'WS', useful for those 
occasions, as here, when you may wish 
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POUR SOCKS sl 
GREEN 186 worth: £ 169.68 

PRED 58) worth: £56.58 
YELLOW 48 worth: £ 144.86 
BLUE 26 worth: £ 94.59 


Total stock value : 
Cash reserves 2 
You are worth 


Type -G- to see graph aga 
-T- to commence transactions 


to display a message for a certain 
period of time before changing it. 
PROCprcol prints numbers (the parameter 
‘no') in column form by printing the 
integer part in a_ specified field 
width, 'xp%'. The decimal part can be 
optionally printed (to print just the 
integer part, ‘int' set to TRUE) but 
only to 2 places. 


18 REM Program STOCKS 

20 REM Version E1.2 

38 REM Author N.Day 

46 REM ELBUG June 1984 

5@ REM Program subject to copyright 


186 MODE] 

110 *FX4,2 

128 ON ERROR GOTO 366 

138 INPUTTAB(5,12)"How many brokers " 


135 VDU23,224,-1;-1;-1;-1,0 
148 PROCdim: PROCsetup: @3=&10 
158 REPEAT 

168 r%=0:g%=G:ys=G:b3=8 

178 montht=month$+1 

188 IF month$=1 THEN PROCJjan 
198 IF month$=2 THEN PROCfebadj 
260 IF month$>2 THEN PROCadj 
216 FOR turn%=1 TO play% 

226 REPEAT 

238 MODE2:PROCdrawgraph :MODE1 
248 *FX11,0 

250 PROCtable(turn%) : PROCgraph 
260 UNTIL gS="T" 

278 REPEAT 

288 PROCask 

296 UNTIL sS="F" AND trans>2 
36@ PROCwait (2) 

316 NEXT 

328 UNTIL month$=12 

338 PROCend 


23 


348 END 

358 : 

368 ON ERROR OFF:MODE 6 

370 *FX11,26 

380 *FX4,0 

398 IF ERR<>17 THEN REPORT: PRINT" at 


line ";ERL 


486 END 

410: 

1986 DEF PROCjan 

1616 BP(1)=FNprice:RP(1)=FNprice 
026 YP(1)=FNprice:GP (1) =FNprice 
183@ ENDPROC 

1046 : 

850 DEF FNprice 

1668 h=RND(4)-1 

1878 =(h*10@) +RND (100) +50 

1688 : 

1698 DEF PROCsetup 

108 VDU23; 8202; 6; 9; 0; :montht=0 
111@ RS=6:GS=@: YS=0:BS=@:trans=0 
1128 ENDPROC 

1136 : 

1146 DEF PROCdim 

1158 PROCdimonths:VDU23; 8202; 9; 3;G; 
116@ DIM BP(12):DIM YP(12) 

1176 DIM GP(12):DIM RP(12) 

1188 DIM cash(play%):DIM E(play%) 
1198 DIM RS(play%):DIM YS (play$) 
1288 DIM GS(play%):DIM BS(play%) 
1218 DIM tsv(play%) 

1220 FOR turn%=1 TO play% 

1238 cash (turn$) =1 80000 

1248 NEXT 

1256 DIM xdim(13):RESTORE 1296 
1268 FOR X%=1 TO 13 

1278 READ place:xdim(X%) =place 
1288 NEXT 

1296 DATA 168,240 

1368 DATA 320,400,480,566 

1316 DATA 648,720,808,8890 

1326 DATA 966,1648,11206,1206 
1338 DATA 1286 

1348 ENDPROC 

1358 : 

1368 DEF PROCdrawgraph 

1378 VDU23;8202;0;0;0; 

1388 PROCwin:GCOL@,@:VDU5: 

1398 MOVE16@,1000:PRINT"J" 

1486 MOVE160,100G:DRAW16@, 384 
1418 DRAW1120,384:RESTORE 1516 
1426 FOR X%=240 TO 1106 STEP 80 
1436 MOVE X%,1000:READmS: PRINTmS 
1446 MOVE X%,1900:PLOT21,X%,384 
1456 NEXT 

1468 P=G 

1476 FOR Y$=448 TO 960 STEP 64 
1486 P=P+1:MOVE 49,Y%:PRINT;P 
1496 MOVE 166,Y%:PLOT21,1120,Y$% 
1566 NEXT es 
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1518 DATA F,M,A 

1528 DATA M,J,J,A 

1538 DATA S,0,N,D 

1548 VDU4:PROCplot (xdim(1) ,BP(1) ,6) 
1558 PROCplot (xdim(1) ,RP(1),1) 

1568 PROCplot (xdim(1) ,YP(1) ,3) 

1576 PROCplot (xdim(1) ,GP(1) ,2) 

1580 IF month$>1 THEN PROClines 

1598 PROCprint 

1660 IF month$=12 THEN PROCwait (3) :END 


1610 REPEAT aS=GETS:UNTIL aS="D" 
1620 ENDPROC 


1648 DEF PROCplot (X%,P,C) 

1658 GCOLG,C:Y$=( ( (P/18@) *16) *4) +384 
1668 PLOT69,X$+19,Y% 

1678 ENDPROC 

1686 : 

1698 DEF PROClines 

1768 FOR M%=2 TO month 

1716 PROCdraw(xdim(M%) ,BP (M$) ,BP (M%-1) 


1720 PROCdraw(xdim(M%) ,RP(M%) ,RP(M%-1) 
1738 PROCdraw(xdim(M%) ,YP(M%) , YP (M$-1) 
1746 PROCdraw(xdim(M%) ,GP(M%) ,GP (M3-1) 


1758 NEXT 

1768 ENDPROC 

1776 : 

1786 DEF PROCdraw(X%,P,L,C) 

1798 GCOLG,C:Y3=( ( (L/19G) *16) *4) +384 
1888 MOVE xdim(M%-1) ,Y% 

181@ Y%=(( (P/1GG) *16) *4) +384 

1826 PLOTS,X%+1G,Y% 

1838 ENDPROC 

1849 : 

1858 DEF PROCprint 

1866 IF play%>1 THEN PRINTTAB(2,22)"BR 
OKER NUMBER ";turn3' 

1870 PRINTmonths (month$) ;" prices:" 
188@ COLOUR]: PRINTTAB (2,27) ;RP(month$) ; 
1898 COLOUR2:PRINT" ";GP(month8) ; 
1988 COLOUR3:PRINT" ";YP(month$) ; 
1918 COLOUR6: PRINT" ";BP(month$) ' 
1920 -IF month%=12 THEN ENDPROC 

1938 COLOUR7: PRINTTAB (1,30) "Type -D- f 
or details" 

1948 ENDPROC 

1958 : 

1968 DEF PROCdimonths 

1976 DIM month$(12):RESTORE 2019 
1986 FOR M%=1 TO 12 

1998 READ month$:month$ (M$) =month$ 
2006 NEXT 

2016 DATA January,February,March 
2026 DATA April ,May,June 

2038 DATA July,August, September 
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See ESSE 


2049 DATA October ,November , December 
2858 ENDPROC 

2068 : 

2070 DEF PROCtable(T$) 

2688 VDU23;8202;9;9;0; 

2698 VDU19,9,4,0,9,8:VDU19,3,2,8,9,0 
2186 COLOURG:COLOUR1 38 

2110 PRINTTAB (1,1) STRINGS (38,CHR$224) 
2128 PRINTTAB(1,9) STRINGS (38,CHR$224) 
2138 PRINTTAB (4,13) STRINGS (35,CHR$224) 
2149 PRINTTAB (4,17) STRINGS (35,CHR$224) 
2158 PRINTTAB (4,5) STRINGS (35,CHR$224) 
216@ PRINTTAB (1,2) SPC (38) 

2178 PRINTTAB (1,18) SPC (38) 

2180 PRINTTAB (4,14) SPC(35) 

2196 PRINTTAB (4,18) SPC(35) 

2206 PRINTTAB (4,6) SPC (35) 

2218 PRINTTAB (2,2) ;month$(month%) ;"" Pr 
ices (in p.) :" 

2226 PRINTTAB (20,6) "BLUE"; 

2238 PROCprcol (7,BP (month%) , TRUE) 

2246 PRINTTAB(2,18) ; 

2250 IF play%>1 THEN PRINT"Broker numb 
er Wert ms me 

2260 PRINT"Your stocks :" 

2276 COLOURT 

2288 PRINTTAB (5,6) "RED"; 

2296 PROCprcol (7,RP(month$) , TRUE) 

2388 COLOUR3:COLOUR128 

2318 PRINTTAB (5,4) "GREEN"; 

2328 PROCprcol (5,GP(month%) , TRUE) 

2338 PRINTTAB (5,12) ;"GREEN"; 

2348 PROCprcol (6,GS(T%) , TRUE) 

2350 PRINT" worth: £"; 

2368 PROCprcol (3, (GS (T%) *GP (month$) ) /1 
00 ,FALSE) 

2378 COLOUR2 

2386 PRINTTAB (20,4) "YELLOW"; 

2398 PROCprcol (5,YP(month’) , TRUE) 

2488 COLOUR] :COLOUR] 39 

2410 PRINTTAB(5,14) ;"RED"; 

242@ PROCprcol (8,RS(T%) , TRUE) 

2438 PRINT" worth: &£"; 

2448 PROCprcol (3, (RS (TS) *RP(month$) ) /1 
00,FALSE) 

2458 COLOUR2:COLOUR1 28 

2466 PRINTTAB (5,16) ; "YELLOW"; 

2478 PROCprcol (5,YS(T%) , TRUE) 

2488 PRINT" worth: £"; 

2496 PROCprcol (3, (YS (T$) *YP(month$) ) /1 
@0,FALSE) 

2588 COLOURG:COLOUR1 30 

2518 PRINTTAB(5,18) ;"BLUE"; 

2528 PROCprcol (7,BS(T%) , TRUE) 

2538 PRINT" worth: £"; 

2548 PROCprcol (3, (BS (TS) *BP (month) ) /1 
00,FALSE) 

2558 COLOUR2:COLOUR1 28 
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2560 tsv (TS) =( (GS (TS) *GP(month$) ) + (YS ( 
T%) *YP (month) ) + (BS (T$) *BP (month$) ) + (RS 
(TS) *RP (month$) ) ) /18@ 

2578 PRINTTAB(4,22)"Total stock value 
: £"; 

2588 PROCprcol (5,tsv(T%) ,FALSE) 

2598 PRINTTAB(4,23)"Cash reserves 

: £"5 

2606 PROCprcol (5,cash(T%) /100,FALSE) 
2618 PRINTTAB(4,24) "You are worth 

: £"; 

2628 PROCprcol (5,tsv (TS) + (cash (T%) /180 
) ,FALSE) 

2638 ENDPROC 

2646 : 

2658 DEF PROCgraph 

2666 PRINTTAB(1,27)"Type -G- to see gr 
aph again"'" or -T- to commence trans 
actions" 

2676 move=9:gS=GETS 

2688 ENDPROC 

2690 : 

2708 DEF PROCask 

2716 trans=ré+gst+ty$+bs 

2720 PRINTTAB(1,27)"Which share would 
you like to deal in?" 

2730 PRINTTAB(1,28)"-R / G / Y / B- or 
-F- for finished ed 

2748 sS=GETS 

2756 IF sS="R" THEN PROCtrans("RED",RP 
(month$) ,RS (turn) ,cash(turn’) ) :cash(tu 
rn%) =R%: RS (turn$) =RS (turn$)+change: IF r 
%=@ AND change<>@ THEN r$=1 

2766 IF s$="G" THEN PROCtrans("GREEN", 
GP (month) ,GS (turn%) ,cash(turn$) ) scash( 
turn$) =R3:GS (turns) =GS (turn’) +change: IF 
g3=8 AND change<>@ THEN g3=1 

2776 IF s$="Y" THEN PROCtrans ("YELLOW" 
,YP(month’) , YS (turn$) ,cash(turn$) ) :cash 
(turn%) =R3: YS (turn$) =YS (turn%) +change:I 
F y%=@ AND change<>@ THEN y%=1 

2788 IF sS="B" THEN PROCtrans("BLUE",B 
P(month$) ,BS (turn$) ,cash(turn$) ) :cash(t 
urn%)=R3:BS (turn) =BS (turn) +change: IF 
bS=@ AND change<>@ THEN b$=1 

2798 PROCtable(turn%) 

2808 IF sS="F" AND trans<3 THEN PROCwa 
rntrans 

2818 PRINTTAB (1,27) ;SPC(38) TAB(1,28) ;S 
PC (38) 

2828 ENDPROC 

2830 : 

2848 DEF PROCtrans(cS$,P%,S%,C$) 

2858 REPEAT: PROCact : R$=C$- (change*P$) : 
IF R$<1 THEN PROCwarn("CASH") 

2860 UNTIL R3>G 

2879 ENDPROC 

2886 : 

2898 DEF PROCwarntrans 

2988 COLOUR@:COLOUR1 30 


2918 PRINTTAB(1,27)" You must make t 
hree transactions! "TAB (1,28) SPC (38) 


2928 VDU7: PROCwait (3) 

2938 COLOUR2:COLOUR1 28 

2948 ENDPROC 

2958 : 

2968 DEF PROCwin:VDU24, 19; 364; 1270; 1026 
7:VDU28,0,31,19,23:GCOL@, 135:CLG: ENDPROC 

2970 : 

2988 DEF PROCact 

2990 REPEAT 

3608 G%=TRUE: IF S%=@ THEN t$="B" 

3016 IF S%<>@ THEN PRINTTAB(1,27)SPC(3 
8) :PRINTTAB(1,27)"Are you buying or sel 
ling in "c$;"?":PRINTTAB (1,28) SPC (38) :P 
RINTTAB (1,28) SPC (18) ;"(B/S) ":tS=GETS$ 

3626 IF t$="B" THEN tranS="buy" 

3030 IF tS="S" THEN tran$="sell" 

3848 PRINTTAB(1,27)SPC(38) :PRINTTAB(1, 
27) "INPUT the number of ";c$;" shares": 
PRINTTAB (1,28) SPC (38) :PRINTTAB(1,28)" 
you wish to ";tran$;: INPUTchange 

3650 IF change<@ THEN PRINTTAB(3@,28)" 
SILLY! ": PROCwait (2) :G3=FALSE 

3068 IF t$="S" AND change>S% THEN PROC 
warn ("SHARES") :G3=FALSE 

3078 IF t$="B" AND (change*P%) >C% THEN 
PROCwarn ("cash") :G$=FALSE 

3880 UNTIL G%=TRUE 

3098 IF t$="S" THEN change=-change 

3186 ENDPROC 
3118 : 

3126 DEF PROCwarn (WS) 

3138 COLOUR@:COLOUR1 398 
3146 VDU7: PRINTTAB (1,27) SPC(9) ;"Insuff 
icient ";WS;SPC(12) :PRINTTAB(1,28)SPC(3 
8) : PROCwait (3) 

3158 COLOUR2:COLOUR128 

3168 ENDPROC 
3178 : 

3180 DEF PROCfebadj 
3198 RP(month$) =RP (month$-1)+FNadj1 (RP 
(month$-1) ) 

3286 GP(month$) =GP (month%-1)+FNadj1 (GP 
(month$-1) ) 

3218 YP(month$) =YP (month3-1)+FNadj1 (YP 
(month3-1 ) ) 

3228 BP (month$) =BP (month$-1)+FNadj1 (BP 
(month$-1) ) 

3238 ENDPROC 
3240 : 

3258 DEF PROCadj 
3268 RP(month’) =RP (month%-1) +FNadj2 (RP 
(month$-1) ,RP(month$-2) ) 

3278 GP(month$) =GP (month$-1) +FNadj2 (GP 
(month$-1) ,GP(month$-2) ) 

3286 YP(month$)=YP(month’-1) +FNadj2 (YP 
(month$-1) , YP(month$-2) ) 
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3298 BP (month?) =BP (month?-1 ) +FNadj2 (BP 3566 E(turn$%)=(cash (turn%) -19980@) /196 
(month%-1) ,BP (month$-2) ) 3576 aS="made":bS="_" 

3388 ENDPROC 3586 IF E(turn%)>1906 THEN bS="Well do 
3318 : ne!" 

3328 DEF FNadj1 (PS) 3590 IF cash(turn%)<1@0@0@ THEN aS="lo 
3338 R=RND(1) :F$=RND (3) +1 st":E(turn’) = (180890-cash (turn$) )/188:b 
3348 IF P%<5 THEN P%$=50 $="Bankrupt!" 

3358 QS=RND(P$/FS) 3608 CLS:CLG:@$=&28206 

3368 IF R<.5 THEN Q%=-Q% 3610 PRINTTAB (6,7) "Broker number"; :PRO 
3370 IF R<.2 THEN Q%=RND (290) Cprcol (2,turn’, TRUE) 

3380 IF Q$<-P$+1 THEN Q$=RND (50) 3615 PRINT", you have "j;a$ 

3398 IF P%+Q%>960 THEN Q%=Q%3-RND( (P5+0O 3616 PRINTTAB(14,9)" £";E(turns);". "; 
$)-9088) b$ 

3486 =Q% 3617 PROCwait (19) 

3418 : 3620 NEXT 

3426 DEF FNadj2(P%,L3) 3638 ENDPROC 

3438 NS=P$ 3646 : 

34498 R=RND(1) :F3=RND(3) +1 3650 DEF PROCwait (W%) :now=TIME: REPEAT: U 
3450 IF P%<1@@ THEN P%=100:F%=RND (2) NTILTIME=now+ (W%*10@) : ENDPROC 

3468 Q%=RND(P$/FS) 3660 : 

3476 IF R<.@5 THEN Q$=RND(200) 3678 DEF PROCprcol (xp%,no, int) 

3489 IF R<.2 THEN Q3=-0% 3688 PRINTSPC (xp%-LEN (STRS$ (INT (no) ))+1 
3496 IF N&<L% THEN Q%=-Q% ) STRS (INT (no) ) ; 

3500 IF Q$<-N%+1 THEN 3469 3698 IF int THEN ENDPROC 

3510 IF P%+Q%>896 THEN 3440 3788 dec=no-INT (no) :tS=INT (18*dec) 
3528 =Q% 3718 u%=INT( (dec*1G-t%) *18) 

3530 : 3720 PRINT".";LEFTS (STRS(t%) ,1) ; LEFTS ( 
3548 DEF PROCend STRS (u%) ,1) 

3558 FOR turn=1 TO plays 3738 ENDPROC 


& 
HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


FUNCTION KEY TO LIST A PROGRAM IN PAGED MODE - R.M.Denby 

A function key may be given a short definition that will list a program in paged 
mode automatically every time Func-f@ is pressed: 

*K.@|NL.|M <Return> 


(The '|" character can be obtained by pressing Shift and the right cursor key). 
(Explanation: *K.@ - *KEY @ 

JN - CNTRL N, for paged mode 

L. - LIST, abbreviated 

|M - CNTRL M, end of function key definition). ® 


CASSETTE LOADING TIMES - C.Lyne 

The approximate loading time from cassette can be given in seconds by the 
statement PRINT &####/&4E, where #### is the program length printed on the screen 
after a sample load. 


ON_ERROR OFF - P.Mabey 
Peter Mabey suggests that readers be reminded that when writing an error trap 
routine, the first statement in the routine should turn off error trapping. 
Otherwise any mistake therein will make it loop back to the beginning, so that the 
only way to stop it is to Break. ie.: 

18 ON ERROR GOTO 960 

2@ REM the rest of the program 

906 ON ERROR OFF 

918 REM error handling routine 
This is always incorporated into ELBUG programs and for a generally useful error 


handling routine, see how one of the published programs is written. @ 
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SCREEN FREEZER 


by David Graham and Michael Cope 


Have you ever wished you could take a pause in the middle of your 
favourite arcade game - either because you have been called away to 
the telephone in the middle of a high-scoring run, or simply so that 
you can examine the screen in peace while you work out a strategy 
for the next phase of the game. FREEZER allows you to do just that. 


FREEZER is a short machine code 
routine that is loaded before a game or 
other program to provide a pause 
control. It works perfectly well on 
most of the arcade games that we have 
used it with - see table - and it works 
equally well with Basic or machine code 
programs. 


Games successfully frozen: 
Invaders Superior Software 
Cent ibug Superior Software 
Fruit Machine Superior Software 
Swoop Program Power 
Croaker Program Power 


Note that if one of the above games 
refuses to freeze, it may be that you 
have a different version of the game to 
us. Monsters by Acornsoft refused to be 
frozen. 


Once FREEZER is activated, pressing 
the '-' (minus) key during the playing 
of most games will halt the program. 
Pressing it a second time will resume 
the game. If your game uses any sound 
effects then these will also be 
‘frozen'. The delay button may be 
pressed again to produce further 
delays. 


Pressing Break disables the routine, 
but it may be re-enabled by typing CALL 
&AGG <return>. A beep indicates that it 
has been successfully called. 


DETAILED INSTRUCTIONS 

Type in the program, and save it on 
cassette. The main routine is in 
assembler and this is converted to 
machine code which must be stored in a 
safe area of memory, where it will not 


be affected by the game program. When 
you run the program you will be asked 


for the address of the memory area to 
be used. This may be in hex or decimal, 
but hex values should be preceded by 
'&'. Generally speaking you should 
enter &A@@ here, unless you wish to 
locate the code elsewhere (if you 
suspect that your arcade game uses this 
Particular memory space). You should 
then see the assembly listing scroll on 
the screen, and a beep should be heard. 
The machine should now behave exactly 


as normal, until you press the '-' key. 
It should then freeze completely until 
you press the '‘'-' key again, when 


everything will continue as before. 


Once the routine is working you 
should save a copy of the machine code 
by typing: 

*SAVE FREEZER A@@ A40 <return> 

You can now reload the code at any time 
by using *RUN FREEZER - again a beep 
will indicate successful execution. 


Once the code is in your machine, 
and enabled, you can load and run any 
game you wish. Remember though, to 
execute CALL &A@@ after pressing Break 
at any time. 
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Rn ES 
CHANGING THE FREEZER KEY 


To change the key used to control This value should then be included at 
the freeze action, alter the value in line 138 in place of the 23 listed. 
line 13@ to equal the positive value of This rather complicated process is 
the negative INKEY value plus 1 (see necessary as the internal 
User Guide page 159). For example, to representation of a key differs from 
use key 'F', find the negative INKEY the value usually seen in a Basic 
value of 'F', which is -68, add 1 to program. The negative INKEY values are 
this giving -67 (not -69), and dropping all on page 159 of the User Guide. 


the sign results in the value of 67. 


1@ REM PROGRAM FREEZE 266 .held 

20 REM AUTHORS D.GRAHAM / M.COPE 276 JSR key:BEQ held 

30 REM VERSION E@.1 286 .wait 

40 REM ELBUG JUNE 1984 298 JSR key:BNE wait 

5@ REM PROGRAM SUBJECT TO COPYRIGHT 308 .held2 

69 : 319 JSR key:BEQ held2 

188 ON ERROR GOTO 420 326 .exit 

118 MODE 6 338 PLA: TAY: PLA: TAX: PLA: PLP: RTS 
126 codet=&AGa 346 .key 

13@ keycode=23 35@ LDA#122:JSR&FFF4 

149 FOR pass=@ TO 3 STEP 3 368 CPX#keycode:RTS 

158 P%=codes 376 J 

168 [OPT pass 388 NEXT 

176 .init 398 CALL init 

186 LDA#7: JSR&FFEE 468 END 

198 LDA#14:LDX#2: JSR&FFF4 418: 

208 LDA#entry MOD 256:STA&22@ 428 ON ERROR OFF 

216 LDA#entry DIV 256:STA&221 438 MODE 6 

228 RTS 440 IF ERR<>17 REPORT:PRINT" at line 
238 .entry "SERL 

240 PHP: PHA: TXA: PHA: TYA: PHA 45@ END 

256 JSR key:BNE exit & 


POINTS ARISING 


SOUND ENVELOPE EDITOR 

It has emerged that there was a potential error in the working of the Sound 
Envelope Editor published in issue 4 of ELBUG. This occured if a value was selected 
for the parameter 's' in excess of 83. Changing lines 360 (1 changed to 2) and 65¢ 
(4 changed to 5) as shown below will solve this problem. 

368 DEFPROCedit (S%,F%) :J$=0:FORI%=S$TO F%:NEXTF%:COLOUR3: J$=J%$+1 : PRINTTAB (J3*5, 
20) ; PS (1%) ; ;COLOUR] : PRINTTAB (J$*5-2,22) ;FNstr (E% (I$) ) sNEXT 

650 DEFFNstr (n) =STRINGS (5- (LEN (STRS (n) ) ) ,CHR$32) +STRS (n) 


DOMINOES 

Because the original program had been partly compacted to save space before 
listing in the magazine, two of the lines will generate a "No such variable..." 
error if typed in as listed. The solution is to insert extra spaces as shown below 
(compare with the original): 

336 IF ELK$ PROCELK ELSE PROCdisphand(1,@) : PROCplayer 

1476 IF bd%>pd% ELK%=TRUE ELSE ELK%=FALSE:s$=n$ 
The absence of crucial spaces causes Basic to fail to recognise keywords like ELSE 
and THEN. We shall be publishing a series of articles starting in next month's 
issue, which will examine problems such as these in more detail. @ 
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GALACTIC INVASION 
by L.P. Baxter 


Net shad 


i 


This program Senne an impressive 
games can be when written in Basic 
the graphics appears quite smooth, 
professional. 


The principle of this game is vv 
for you to shoot down the Galactic 
Invaders which appear as a massed 


force on the screen. As you might 
expect, they put up a good fight, 
swooping down one by one to attack you 
with purposeful but unpredictable 
trajectories. You move left and right 
across the bottom of the screen using 


the 'Z' and 'X' keys and fire back & 
using the '.' key. When only one @ 
invader remains, a new 
and even faster attack 


strategy is engaged. 

The different invaders f 
rate different scores if 
you destroy them, as 
shown in the table at the start of the 


game. The highest scoring invaders 
vary randomly in value. If you 
successfully defend 
yourself against the 
first attack, you then 


Sot 


Oe ita tte of how good arcade = 


on the Electron. The movement of 
and the presentation is very 


efi rin 


L 


es —e 
wu CAS 


face a second and further screen 
of invaders. You have three lives 
before your defences are 
exhausted. At any time 
during the display of the 
scoring or high score 
table, pressing the space 
bar will start the next 
Like many good games programs 
is quite long amd you must 
type it in carefully to avoid mistakes. 
Pay particular attention to the spaces 


game. 
this one 


in the program, though if you do get 
them wrong, it is only the initial 
displays which are likely to be 
affected. The mass of data statements 


at the end of the listing establishes 
the invaders' swoop patterns, so are 
not as critical as they might be, but 
errors will be thrown up if you do not 
have enough data. Please note that this 
program will not work if it 


is renumbered because of the 
use of variable RESTORE 
statements. 
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1@ REM Program GALACTIC INVASION 

26 REM Verson E1.0 

30 REM Author L.P.Baxter 

48 REM ELBUG JUNE 1984 

50 REM Program subject to Copyright 

60 : 

160 ON ERROR GOTO 20176 

1108 PROCe 

126 DIM AS(4) ,BS(4) ,X8(18) ,Y$ (18) ,NS( 
5) ,S3 (5) 

13@ FOR G%=1 TO 5:S%(G%)=6800-G%*1 998 
:NS (G%) ="ELBUG" : NEXT 

14@ REM==== COLD START ==== 

15@ MODES:FORA%=1 TO 4:BS(A%) =CHRS (22 
4+A%) :NEXT 

168 VDU19,9,6,0,0,0 

178 VDU19,2,5,8,0,0 

188 P%=0:R3=0 

198 ES=CHR$23@6:CS=CHR$231 : DS=CHR$238: 
FS=CHR$235+CHRS$236 

268 BS=CHR$32+CHR$232+CHR$233+CHR$234 
+CHRS32:J$=G:TS=2 

210 nt=1:GS=CS$:N%=36 

220 U$=3:K%=8:HS=CHRS229 

230 REM== WARM START ==== 

246 WS=0: 23=6 :MB=0 

258 VDU 2 30;9;9; 

266 CLS:CO 3: PRINT" SCORE" : F3=@ 

276 V%=28:REM FLAG FOR LAST MAN(NO. 
INV LEFT): 

288 FORA%=1 TO 4:AS$(A%)=STRINGS (6,CHR 
$ (224+A%) +CHRS$32) +CHRS (224+A%) : NEXT 

298 H%=0:D%=0: E3=G: IS="":VP=G:HP=G:1% 
=2 

300 REPEAT PROCd:UNTIL A% 

318 PRINTTAB(@,31) ;STRINGS (T%,FS) ; TAB 
(19-LEN (GS) ) ;G$; 

326 L%=6:PROCa:y%=G:x3=0 

338 : 

348 REPEAT 

35@ IF INKEY-104 AND Z%=@ PROCb 

360 IF INKEY-98 L%=-1:PROCa ELSE IF I 
NKEY-67 L%=1:PROCa 

370 PROCc: PROCh: PROCC 

386 COLOUR2:PRINT TAB(6,@) ;W3+PS 

390 IF W8=70006 THEN PROCk:y%=-1:GOTO 
476 

406 IF F% PROCi 

419 IF T%=-1 PROC}:x%=-1:GOTO 479 

420 REM NOW INVADERS TURN 

436 IF H%=@ AND RND(2@)=1 THEN PROCd 

449 IF H& PROC£:GOTO 460 

450 IF RND(N%)=1 OR V%=1 THEN PROCg 

468 PROCc 

478 UNTIL y% OR x% 

489 IF y% THEN 240 ELSE 158 

498 END 

500 : 

51@ DEF PROCa 


2VDU19,3,4,9,9,0 


RS=0:2 
3,1, 
UR 


JUNE 1984 


520 IF J%+L3<@ OR J%+L%>15 THEN ENDPR 
o 

530 J&=J3+Lé 

548 COLOUR2:PRINT TAB(J%,3@) ;BS; 

558 ENDPROC 


570 DEF PROCb 

588 COLOUR3:Z%=J$+2 :M3=29 

598 PRINTTAB(Z%,M%) ;HS 

666 ENDPROC 

616 : 

626 DEF PROCc 

638 IF Z%=@ ENDPROC 

640 IF M%=4 THEN PRINT TAB(Z%,M%) ;SPC 
1:Z%=6:M%=@: ENDPROC 

656 MS=M$-1:IF ?(Z3*16+M%*320+2+HIMEM 
) THEN 670 

668 COLOUR2: PRINTTAB (Z%,M%+1) ;SPC1;CH 
RS$11;CHRS8 ; H$: ENDPROC 

676 PRINTTAB(Z%,M%+1) ;SPC1;CHRS11;CHR 
$8;"*";CHRS8; 

686 IF NOT(D%=POS AND E%=VPOS) THEN 7 
38 

699 H%=@:AS (VP) =LEFTS (AS (VP) , HP*2-2) + 
CHR$32+MIDS (AS (VP) ,HP*2) 

768 WS=W3+500-100*VP:VDU 32:IF VP<>1 
THEN P$=P$+50G-1@00*VP:GOTO 760 

718 S%=RND(18) *100:P%=P%$+S%: PRINT CHR 
$8 ;CHRS8 ;S%+40G; 

728 PROCr:VDU8,8,8,8,32,32,32,32:GOTO 
770 

730 W=W3+500-FNY (VPOS) *100 

74@ AS=FNY (VPOS) :BS=FNX (POS) *2-1:AS (A 
%) =LEFTS (A$ (A%) ,B$-1) +CHR$32+MIDS (AS (A3 
) ,BS+1) 

75@ VDU 32:IF H%=1 THEN PROCE£ 

768 PROCq 

778 Z3=6:M3=6:V3=V3-1 

780 IF V%=1 THEN N%=2:U%=0 

798 ENDPROC 

806 : 

816 DEF PROCd 

826 COLOUR] 

8308 A$=RND(3)-2:IF A%=@ THEN ENDPROC 

846 IF I%+A$<1 OR I%+A$>4 THEN I%=I3- 
A% ELSE I$=I3+A% 

856 PRINT TAB(I%,4) ;SPC1;A$(1);SPCI1'' 
TAB(I%) ;SPC1;AS(2) ;SPC]' 'TAB(I$) s;SPCI;A 
$(3) ;SPC1' 'TAB(I%) ;SPC1;A$(4) ;SPC1:ENDP 
ROC 

866 : 

876 DEF PROCe 

888 VDU 23,225,66,231,255,102, 36, 36,3 
6,24 

896 VDU 23,226,56,124,84,214,254,13G, 
254,178 

906 VDU 23,227,102,153,36,98,98,96,66 
7129 

918 VDU 23,228,60,126,165,189,153,98, 
24,36 
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926 VDU 23,229,0,24,24,24,24,24,24,8 

938 VDU 23,236,0,8,8,8,8,8,8,0 

946 VDU 23,231,48,56,68,56,48,32,32,32 

958 VDU 23,232,0,9,6,1,3,7,15,3) 

968 VDU 23,233,24,68,69,255,255,255,2 
55,255 

976 VDU 23,234,0,8,8,128,192,224,249, 


988 VDU 23,235,8,0,9,1,3,15,31,63 

999 VDU 23,236,0,8,0,8,128,224,248,248 

1988 VDU 23,237,0,8,8,255,8,255,0,9,8 

1919 VDU 23,238,176,184,188,184,176,16 
8,166,168 

1828 ENDPROC 

1036 : 


1948 DEF PROCf 
1950 IF V%=1 THEN SOUND 17,-15,30,1:SO 
UND 17,-15,18,1:GOTO 1076 
1868 SOUND &@011,-15,r%,5:r$=r$-1 
1070 IF D&<@ OR D%>19 THEN 1090 
1@8@ PRINT TAB(D%,E%) ;SPC1;:IF R&<US A 
ND RND(K%)=] AND E$<28 THEN RS=R%+1:X$ ( 
R$) =D$: Y$ (R$) =ES 
1990 IF E$>29 THEN 1120 
11@@ READ A$,B$:D$=D$+A%:ES=ES+BS: IF D 
%>=6 AND D%<2@ THEN PRINT TAB(D%,E%) ;IS; 
1116 ENDPROC 
1120 IF V%=1 THEN 1130 ELSE IF RND(5)= 
1 THEN PROCd ELSE PRINT TAB(FNX] (HP) ,FN 
Y1(VP));1$ 
1138 R%=0:H3=0 
1146 IF D%>J% AND D$<J%+4 THEN F$=1] 
1158 ENDPROC 
1160 : 

1178 DEF PROCg 
11808 RESTORE (RND(3)-1)*20+11000 

1196 VP=RND(4):IF INSTR(AS(VP) ,BS (VP) ) 
=@ THEN 1190 

1206 IF RND(2)=1 THEN 1220 ELSE A$=15 
121@ A%=A$-2: IF MIDS (AS (VP) ,A%,1) =CHRS 
32THEN 121@ ELSE HP=(A$+1)/2:GOTO 1246 

1226 HP=(INSTR(AS$ (VP) ,BS (VP) ) +1) /2 
1230 RESTORE (RND(3)-1)*20+10000 

1248 IS=BS (VP) 

1250 IF V%=1 THEN RESTORE (198060+(RND( 
2)-1) *100G) :PRINT TAB(FNX1 (HP) ,FNY1 (VP) 
) ;SPC1; :HP=3 

1268 D%=FNX] (HP) : E$=FNY1 (VP) 

1276 r%=200:H%=1:ENDPROC 

1288 : 

1298 DEF FNX(X)=(X-I$+1) /2 

1300 DEF FNY(Y)=(Y-2) /2 

131@ DEF FNX1 (X)=X*2+I$-1 

1326 DEF FNY] (Y) =2+¥*2 

1330: 

1340 DEF PROCh 

1350 IFR$=@ THEN ENDPROC 

1366 FORAS=1TOR$:IF X%$(A%)=@ AND Y%(A% 
)=@ THEN NEXT: ENDPROC 


1376 PRINTTAB (X% (A&%) , Y% (A&) ) ; SPC1; 2 Y% ( 
AS) =Y3 (AS) +1: IF Y%(A%)<3@ THEN 1386 ELS 
E C%=X% (A%) :X% (A$) =G: Y% (AS) =G: IF C&<J%+ 
1 OR C8>J%+3 THEN 1398 ELSE F%=1:GOTO 1 


1386 COLOUR]: PRINTTAB (X$ (A$) ,Y$(A$)) ;E 


1398 NEXT: PROCc:ENDPROC 

1496 : 

1416 DEF PROC 

1426 T$=TS-1 

1438 COLOUR2:PRINT TAB(J%,3@) ;BS; 
1446 PROCp:IF T$=-1 ENDPROC 

1456 CLS:COLOUR3: PRINT" SCORE" 


ZNVASITON 


GALACTIC 


146@ COLOUR2:PRINT TAB(@,31) ;STRINGS (T 
$,FS) ;SPC2;TAB(19-LEN (GS) ) ;G$;TAB(@, 38) 
7BS 

147G F%=G6:H3=0:D%=G: E$=G: R$=0 : HP=G: VP= 
G:I%=0:M3=G:23=0 

1480 REPEAT: PROCdG: UNTIL A%:ENDPROC 

1498 : 

1500 DEF PROC} 

1581 COLOUR2:COLOUR] 29: PRINTTAB (5,12)" 
Game Over" 

1510 FOR A=1 TO 7006:NEXT 

1520 WS=WS+P3: IF W8<=S3(5) THEN 1696 

153@ REM MADE IT INTO HIGH SCORE TABLE 

1546 FOR A&%=5 TO 1 STEP -1 

155@ IF S%(A%)<W% THEN C3=A% 

1568 NEXT: VDU22,6,19,0,1;0;19,1,3;0; 

1576 COLOUR129:COLOURG: PRINTTAB(11,1)" 
Galactic Invasion":COLOUR128:COLOURI 

1586 PRINT'"Your score of ";W%;" is en 
ough to rank" 

1598 PRINT TAB(@,4) ;C&;MIDS ("stndrdtht 
h",C%*2-1,2);" in the high score table." 
1666 PRINT TAB(@,8);"Please enter your 

name in not more than ten letters." 

1610 PRINT TAB(14,15);">";SPC(1@) ;"<"; 
SPC(13) 

1628 PRINT TAB(15,15) ;:*FX15,1 


1638 INPUT ""AS 
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1640 IF LEN(AS$)>1@ THEN 1610 

1650 IF C3=5 THEN 1680 

1669 FOR At=4 TO C% STEP -1 

167@ S%(A%+1) =S% (AS) =NS (A$+1) =NS (AS) =N 
EXT 

1686 S%(C%)=WS:NS (C%)=AS 

1698 ENDPROC 

1706 : 

1716 DEF PROCk 

1726 PS=PS+W3:nd=n$+1 

1738 GS=STRINGS(n$ MOD 16,CS$)+STRINGS ( 
n% DIV 16,D$) 

1746 US=3+INT(n%/2) :IF U%>8 THEN U%=8 
175@ N&=N$-5:IF N&<S THEN N%=2 


. 
scoRe 7ee 


° 


1766 K%=11-U% 
1776 FOR A=1 TO 2500:NEXT: ENDPROC 
1788 : 
1798 REM DISPLAY SHEETS 

1888 DEF PROC1 

1816 REPEAT: VDU 23,1,0;0;0;G;:*Fx15,1 
1826 Q%=0:PROCn: IF Q%=@ THEN ENDPROC 
1838 CLS:C%=20:*FX15,1 

1849 AS=" GALACTIC INVASION": PROGn(1) 
1858 AS="" "+STRINGS (17,CHRS$237) : PROCn( 
2) 

1866 AS="40G 
1876 AS="306 


"4+BS(1)+" 
"+BS (2) +" 


?":PROGn(8) 
600": PROGn (12) 
1886 AS="200 "+BS(3)+" 400":PROQn(16) 
1898 AS="16G "+BS(4)+" 206":PROCm(20) 
1966 AS="Z KEY LEFT":PROGn(26) 

1918 AS="X KEY RIGHT": PROCm(28) 

1926 AS=". KEY FIRE": PROGn(3@) 

1930 IF INKEYS(1000)<>""THEN ENDPROC 
1949 UNTIL FALSE 

1956 : 

1968 DEF PROCm(A%) 

1976 IF A%=1 OR A%=2 GOTO199¢ 

1988 AS=STRINGS (4,CHR$32) +A$ 

1996 FOR B%=15 TO 1 STEP -1:A=SIN(97.6 
) :BS=MIDS (AS$,B%) : PRINT TAB(G,A%) ;BS;:NE 
XT: ENDPROC 

2088 : 
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2018 DEF PROCn 

2026 CLS:A%=6 

2630 AS=A$-1 

2040 PRINT TAB(G,@) ;A%;". ";S8(A%) ;T) 
(16,8) ;NS (AS) ;CHRS3@; 

2050 B&=0 

2068 BS=BS+1 

2076 VYDU 11:IF INKEY1@<>-1 THEN A%=@:B 
%=5: ENDPROC 

2080 IF BS<4 THEN 2060 

2090 IF A%>1 THEN 29390 

2108 VDU 11,11,11:PRINT TAB(3,2)STRING 
$(14,CHRS$237) ;CHRS$11;TAB(3,1) "HIGHEST S 
CORES" 

2118 IF INKEY(18@@)<>-1 THEN ENDPROC 
2126 Q$=1:ENDPROC 

2138 : 

2148 REM EXPLOSION 

2158 DEF PROCp 

2168 FOR A%=1 TO 56 

2178 GCOL RND(4)-1,RND(3) 

2188 SOUND 1,@,RND(50)+195,1:SOUND @,- 


15,71 

2198 MOVE (J$+3) *64-32,32 

2206 DRAW RND (144) -96+ (J%$+3) *64,RND(14 
4) +32 

2219 NEXT 


2220 FOR A=] TO 38806:NEXT: ENDPROC 

9999 REM DATA FOR DIVES 

10000 DATA -1,1,-1,1,-1,1,8,1,0,1,1,1,1 
tle lel le lel yl, 1,G,1,8,1,1,1,8,1,8,1,1, 
1,8,141,1,0,1,1,1,8,1,1,6,1,8,1,-1,1,-1 
1Gy-Vy Vel Gp—-1 yl y—-l yl 1-1-1 ,-1,8,- 
1,1,-1,],-l,1,-1,1,-1,1 

10026 DATA -1,1,-1,1,-1,1,0,1,8,1,1,1,1 
Velo lee lel el ,1,0,1,0,1,8,1,6,1,8,1,1, 
1,6,1,6,1,8,1,1,1,8,1,1,8,1,-1,1,-1,0,- 
1,8,-1,1,-1,8,-1,8,-1,1,-1,8,-1,8,-1,0, 
-1,6,-1,1,8,1,1,1,1,1,1,1,1,1,1,8,1,1,1 
Br lelelelelyly ly) 

10640 DATA -1,1,-1,1,-1,1,9,1,0,1,1,1,1 
rlyplylelelydel 1 ,G,1,8,1,8,1,8,1,8,1,1, 
1,6,1,9,1,8,1,1,1,6,1,1,8,1,-1,1,-1,8,- 
1,0,-1,1,-1,0,-1,8,-1,1,-1,6,-1,8,-1,8, 
alOp=ly le GE lpi THT ae; 
=), 16-11, etal 

1GG6G DATA G,1,0,1,8,1,8,1,,1,8,1,G,1, 
610,161, <1,1-<Lplysl -Byeliolictrlslee 
’ 141,1,8,1,8,1,6,1,8,141,1,1,-1,1,-1,71 
1-1 ,8,-1,6,-1,8,-1,-1,-1,-1,8,-1,8,8,1, 
-1,1,-1,1,6,0,9,1,6,6,8,1,8,1,1,1,1,0,) 
18,G,-1,1,-1,1 

10878 DATA-1,1,-1,1,-1,1,-1,1,-1,1,-1,1 
r-1,1,-1,1,-1,1 

11068 DATA 1,1,1,1,1,1,0,1,8,1,-1,1,-1, 
1,-1,1,-1,1,-1,1,-1,8,-1,8,-1,1,-1,8,-1 
1G,-1,1,-1,8,-1,1,-1,0,-1,1,-1,8,-1,1,8 
Ve Brlele lel Bele lel Grlele le lel ele lyly 
1,Oelelelelylytyl,l,1,1 
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11626 DATA 1,1,1,1,1,1,8,1,0,1,-1,1,-1, 
1,-1,1,-141,-1,1,-1,9,-1,8,-1,8,-1,9,-1 
19,-1,1,-1,8,-1,8,-1,8,-1,1,-1,8,-1,1,6 
rlely1,1,8,1,5,1,1,1,8,1,8,1,1,1,8,1,9, 
1,9,1,841,1,8,1p-V yl p-l lp, 1-11 ,-l, 
O=17 lee Op =15 eh lee 1,1 

11046 DATA 1,1,1,1,1,1,8,1,8,1,-1,1,-1, 
Vpatsl aU lal lipale Ge) (95219 6 = 1085H1 
78,-1,1,-1,9,-1,9,-1,8,-1,1,-1,8,-1,1,@ 
tle led), G,1,8,1,1,1,8,1,8,1,1,1,8,1,8, 
1,0,1,6,1,1,8,1,-1,1,1,1,1,1,1,1,1,1,1, 
1,0,1,-1,1,-1,1 

11068 DATA G,1,9,1,0,1,0,1,8,1,9,1,9,1, 
G-1:,0,150 15151, 1; Velis@, Upl,=1,1,=1,05= 
1419-1 ,8p-1 1G e-1 8 p-1 GB y—-1 yl yp-l lly dy) 
11,1,9,1,8,1,8,1,-1,1,-1,8,-1,8,9,-1,-1 
r—l,-1,-1,6,8,8,-1,9,8,8,-1,0,-1,1,-1,1 
19,1,0,8,1,1,1,1 

11078 DATA 1,1,1,1,l,lylelelelelylelyl, 
Leligiinl 


20018 A$=187:B=179 

28828 SOUND 1,-15,109,2 

28038 SOUND 1,-15,121,1 

28048 SOUND 1,-15,B%,1 

29058 SOUND 1,-15,A%,1 

20668 SOUND 1,-15,255,1 

28076 SOUND 1,-15,B%,1 

29888 SOUND 1,-15,A%,1 

28098 SOUND 1,-15,B%,1 

26190 ENDPROC 

201981 : 

20118 DEF PROCr 

20126 FOR A%=108 TO 200 STEP 25 

28136 SOUND 1,-15,A%-4,1:SOUND 1,-15,A% 
,1:SOUND 1,-15,A%+4,1:SOUND 1,-15,A%+8,1 
20148 SOUND 1,0@,1,1 

20158 NEXT 

28168 ENDPROC 

28178 ON ERROR OFF 

20188 MODE6: IF ERR<>17 REPORT: PRINT" i) 


20000 DEF PROC line ";ERL 


Continued trom Page 19 

1296 VDU 23,247,60,32,32,8,0,0,9,08 

138@ VDU 23,248,0,56,56,16,16,16,16,9 

1318 VDU 23,249,6,56,56,29,34,68,72,8 

1328 VDU 23,250,60,9,0,0,9,9,8, 180 

1330 VDU 23,251,6,28,4,7,7,3,0,9 

1349 VDU 23,252,6,9,1,1,1,7,8,0 

1358 VDU 23,253,32,32,9,0,9,0,8,8 

1368 VDU 23,254,16,32,36,44,30,9,0,0 

1378 VDU 23,255,8,6,0,194,224,224,8,8 

1388 MAN1S=CHRS (18) +CHRS (3) +CHRS (1) +CH 
RS (247) +CHRS (8) +CHRS (1) +CHRS (248) +CHRS 
(8) +CHRS (18) +CHRS (3) +CHRS (7) +CHRS (247) + 
CHRS (8) +CHRS (11) +CHRS (244) +CHRS (8) +CHRS 
(18) +CHRS (3) +CHRS (5) +CHRS (246) 

1398 MAN2$=CHRS (18) +CHRS (3) +CHRS (1) +CH 
RS (247) +CHRS (8) +CHRS (1) +CHRS (249) +CHRS 
(8) +CHRS (18) +CHRS$ (3) +CHRS (7) +CHRS (258) + 
CHRS (8) +CHRS (11) +CHRS (244) +CHRS (8) +CHRS 
(18) +CHRS (3) +CHRS (5) +CHRS (246) 

1408 MAN3$=CHRS (18) +CHR$ (3) +CHRS$ (1) +CH 
R$ (251) +CHRS (252) +CHRS (8) +CHRS (8) +CHRS ( 
18) +CHR$ (3) +CHRS (7) +CHRS (253) +CHRS (254) 
+CHRS (8) +CHRS (18) +CHRS (3) +CHRS (5) +CHRS ( 
255) 

1410 MANS=MAN1$:X%=0: 18=7:y3=0 

1428 ENDPROC 

1430 : 

1446 DEF PROCscreen 

1456 VDU 19,6,4;0;19,15,4;0;19,14,4;0; 
19,13,4;8;19,3,4;0; 

1468 PRINT TAB(7,1)"PLEASE"TAB(8,2) "WA 
It" 

1476 FOR Q=6 TO 39 

1486 READ C,Z2,X,Y:GCOL @,C:PLOT Z,X,Y: 
NEXT 

1496 GCOL @,1:A=1/(1806*2*.5) 

1500 FOR X=-1008 TO 1900 STEP 56 


1518 Y=((@.1/A) * (EXP (A*X) +EXP (-A*X) ) )- 
(2660G0*A) 

1520 IF X=-100@:MOVE 140,Y/2+580 

1538 DRAW X/2+646,Y/2+618 

1540 IF X=1000:DRAW 1140,¥/2+580 

1558 NEXT 


1568 VDU 5,19,15,1;0;19,14,6;0;19,2,1; 
0;19,4,7;0;319,6,2;0;19,13,2;0;19,3,3;93 
19,5,2;6319,9,7;8;19,10,4;0; 

1578 GCOL 6,9 


1588 MOVE] 28,64:VDU242, 242, 32,242,242, 
32,242,242,32,242,242,32,242,32,242,243 
1596 MOVE64, 32: VDU32, 243, 32,242,243, 32 
1243,32,243,243,32,32,243,243,32,243,32 

1686 GCOL G,18 

1610 MOVE 64,32:VDU 32,243,242,32,242, 
32,243,243,32,242,32,242,242,32 

1628 MOVE 129,64:VDU 242,32,242,243,32 
7242,243,242,32,242,243,32,242,32,242 

163@ MOVE X%,716:PRINT MANS 

1648 VDU 28,3,29,16,12,24,192; 96; 1624; 
640; 

1658 ENDPROC 

1668 : 

1676 DATA 15,4,8,8,15,4,198,64,15,85,9 
,608,15,85,196,646,15,4,1288,8,15,4,188 
8,64,15,85,1288,608,15,85,1088,640,3,4, 
8,608,3,4,192,640,3,85,0,640,3,85,384,7 
36,3,85,0,736,3,4,1280,608,3,4,1088,648 

1688 DATA 3,85,1286,640,3,85,896,736,3 
785,1286,736,3,4,864,896,3,4,440,896,3, 
85,768,832,3,85,488,864,13,4,384, 736,13 
74,9,736,13,85,512,832,13,85,6,992,13,8 
5,326,992,13,4,896,736,13,4,1286, 736,13 
785,768,832,13,85,1286,992,13,85,1824,992 
1696 DATA 14,4,8,992,14,4,0,1824,14,85 
71288,992,14,85,1280,1024,14,4,320,992, 


14,4,1024,992,14,85, 440,896, 14,85,864,896 @ 
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